msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

better error message for the ai command

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Command/Commands.hs
View File

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

5
testsuite/runtime/typecheck/typecheck.gfs.gold
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 Category Int should have 0 argument(s), but has been given 1
In the type: Int 0 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 A function type is expected for the expression 1 instead of type Int
Couldn't match expected type Int -> Int Couldn't match expected type Int -> Int