diff options
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/CheckGrammar.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Compile/CheckGrammar.hs b/src/GF/Compile/CheckGrammar.hs index 51dcab70b..d752ab1c9 100644 --- a/src/GF/Compile/CheckGrammar.hs +++ b/src/GF/Compile/CheckGrammar.hs @@ -689,6 +689,7 @@ getOverload env@gr mt ot = case appForm ot of checkWarn ("ignoring lock fields in resolving" +++ prt ot) return (mkApp fun tts, val) ([],[]) -> do + ---- let prtType _ = prt -- to debug grammars raise $ "no overload instance of" +++ prt f +++ "for" +++ unwords (map (prtType env) tys) +++ "among" ++++ unlines [" " ++ unwords (map (prtType env) ty) | (ty,_) <- typs] ++ |