src/runtime/haskell-bind/test.hs


1
2
3
4
5
6
7
8
9
10
11
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"