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

fix the error message for overload resolution

Browse Source
This commit is contained in:
krasimir
2009-10-06 14:59:02 +00:00
parent 1a58e32362
commit 7ba65bb0d4
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Compile/CheckGrammar.hs
View File

@@ -577,8 +577,7 @@ getOverload gr g mt ot = case appForm ot of
checkWarn (text "ignoring lock fields in resolving" <+> ppTerm Unqualified 0 ot) checkWarn (text "ignoring lock fields in resolving" <+> ppTerm Unqualified 0 ot)
return (mkApp fun tts, val) return (mkApp fun tts, val)
([],[]) -> do ([],[]) -> do
---- let prtType _ = prt -- to debug grammars let showTypes ty = hsep (map ppType ty)
let showTypes ty = vcat (map ppType ty)
checkError $ text "no overload instance of" <+> ppTerm Unqualified 0 f $$ checkError $ text "no overload instance of" <+> ppTerm Unqualified 0 f $$
text "for" $$ text "for" $$
nest 2 (showTypes tys) $$ nest 2 (showTypes tys) $$