Приветствую.

Начал разбираться с примером на Haskell

И вот такое объявление

findCommand :: String − > [ ( String , Command ) ] − > Maybe Command
findCommand _ [ ] = Nothing
findCommand cmd ( ( n , c ) : cs ) = i f ( ( map toLower cmd ) ` isPrefixOf ` n )
                                     then Just c
                                     else findCommand cmd cs

выдает вот такую ошибку

Expecting one more argument to `Command'
In the type signature for `findCommand':
  findCommand :: String -> [(String, Command)] -> Maybe Command

Хаскель "из коробки" Haskell Platform 2012.2.0.0

Что-то не могу разобраться, может, есть идеи?