1 files changed, 12 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/test.hs b/src/runtime/haskell-bind/test.hs
new file mode 100644
index 000000000..16e7ff7cb
--- /dev/null
+++ b/src/runtime/haskell-bind/test.hs
@@ -0,0 +1,12 @@
+import PGF2
+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) "this" "wi" Nothing
+  case pr of
+    ParseOk x -> print (head x)
+    ParseFailed _ _ -> putStrLn "parse failed"
+    ParseIncomplete -> putStrLn "input incomplete"