better error message for the ai command

This commit is contained in:
krasimir
2009-09-19 10:24:02 +00:00
parent e363c40058
commit 884747508e
2 changed files with 2 additions and 5 deletions

View File

@@ -644,7 +644,7 @@ allCommands cod env@(pgf, mos) = Map.fromList [
else space $$
text "fun" <+> vcat [ppCId fid <+> colon <+> ppType 0 [] ty
| (fid,ty) <- functionsToCat pgf id])
Nothing -> do putStrLn "unknown identifier"
Nothing -> do putStrLn ("unknown category of function identifier "++show id)
return void
[e] -> case inferExpr pgf e of
Left tcErr -> error $ render (ppTcError tcErr)

View File

@@ -7,10 +7,7 @@ A function type is expected for the expression 1 instead of type Int
Category Int should have 0 argument(s), but has been given 1
In the type: Int 0
A function type is expected for the expression 1 instead of type Int
Couldn't match expected type Int -> Int
A function type is expected for the expression 1 instead of type Int
Couldn't match expected type Int -> Int