diff options
| author | John J. Camilleri <john@digitalgrammars.com> | 2021-05-03 14:25:35 +0200 |
|---|---|---|
| committer | John J. Camilleri <john@digitalgrammars.com> | 2021-05-03 14:25:35 +0200 |
| commit | e56d1b29593bef6ea3a70b50287df3e3438207d7 (patch) | |
| tree | 2a443470c5475dcd2662b05efb4bf128a2bf97fe /src/runtime/haskell-bind/test.hs | |
| parent | 450368f9bbf2948365953ae35069b5039ba38a28 (diff) | |
Second attempt. Reading enum is closer to working but all strings are empty.
Diffstat (limited to 'src/runtime/haskell-bind/test.hs')
| -rw-r--r-- | src/runtime/haskell-bind/test.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/runtime/haskell-bind/test.hs b/src/runtime/haskell-bind/test.hs index 16e7ff7cb..26836445f 100644 --- a/src/runtime/haskell-bind/test.hs +++ b/src/runtime/haskell-bind/test.hs @@ -5,8 +5,8 @@ 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 + let pr = complete concr (startCat pgf) "" "th" Nothing case pr of - ParseOk x -> print (head x) + ParseOk x -> print x ParseFailed _ _ -> putStrLn "parse failed" ParseIncomplete -> putStrLn "input incomplete" |