report type errors in the shell from command "p"

2010-07-07 12:23:21 +00:00
parent c066721dd1
commit 95f1d40c56
3 changed files with 18 additions and 13 deletions
--- a/src/compiler/GF/Compile/ExampleBased.hs
+++ b/src/compiler/GF/Compile/ExampleBased.hs
@@ -49,7 +49,7 @@ convertFile conf src file = do
          [] -> return ()
          _  -> appv ("  missing words: " ++ unwords ws)
        return ws
-      TypeError _ _ ->
+      TypeError _ ->
        return []
      ParseOk ts ->
        case rank ts of