report type errors in the shell from command "p"

2026-05-03 08:12:51 -06:00 · 2010-07-07 12:23:21 +00:00
parent cf8f0f089f
commit 8d63bf8d79
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