checker update

[minfp.git] / parse.icl

diff --git a/parse.icl b/parse.icl
index 3ea9884..05ba36f 100644 (file)
--- a/parse.icl
+++ b/parse.icl
@@ -40,8 +40,8 @@ lex [t:ts]
                = TIdent i <:> lex ts
        = Left ["Unexpected: " +++ toString t +++ " ord: " +++ toString (toInt t)]
 
-parse :: [Char] -> Either [String] AST
-parse t = lex t >>= 'Text.Parsers.Simple.ParserCombinators'.parse (AST <$> many pFunction)
+parse :: ([Token] -> Either [String] AST)
+parse = 'Text.Parsers.Simple.ParserCombinators'.parse (AST <$> many pFunction)
 where
        pId = (\(TIdent i)->i) <$> pSatisfy (\t->t=:(TIdent _))