Add proper error handling in complete

1 files changed, 12 insertions, 6 deletions

diff --git a/src/runtime/haskell-bind/test.hs b/src/runtime/haskell-bind/test.hs
index 26836445f..4d345c90c 100644
--- a/src/runtime/haskell-bind/test.hs
+++ b/src/runtime/haskell-bind/test.hs
@@ -4,9 +4,15 @@ import qualified Data.Map as M
 main :: IO ()
 main = do
   pgf <- readPGF "/Users/john/repositories/GF/contrib/foods/Foods.pgf"
-  let Just concr = M.lookup "FoodsEng" (languages pgf)
-  let pr = complete concr (startCat pgf) "" "th" Nothing
-  case pr of
-    ParseOk x -> print x
-    ParseFailed _ _ -> putStrLn "parse failed"
-    ParseIncomplete -> putStrLn "input incomplete"
+  let
+    Just concr = M.lookup "FoodsEng" (languages pgf)
+    loop = do
+      putStr "> "
+      tks <- words <$> getLine
+      let pr = complete concr (startCat pgf) (unwords (init tks)) (last tks) Nothing
+      case pr of
+        ParseOk x -> print x
+        ParseFailed x s -> putStrLn $ "parse failed at " ++ show x ++ " " ++ s
+        ParseIncomplete -> putStrLn "input incomplete"
+      loop
+  loop