diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-12-16 10:33:45 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-12-16 10:33:45 +0000 |
| commit | 990dce35ae4ec5d644323383c34e0ff4938a3454 (patch) | |
| tree | 7e31e74f33d501f871f618aa7e8ce989a29cc2dd /src/runtime/haskell-bind | |
| parent | 9bc5349e622cf00156b46f56a940d035e000115a (diff) | |
forgot to export parseWithHeuristics from Haskell
Diffstat (limited to 'src/runtime/haskell-bind')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index 8fb4e9387..8fa3a0f65 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -15,7 +15,7 @@ module PGF2 (-- * PGF PGF,readPGF,abstractName,startCat, -- * Concrete syntax - Concr,languages,parse,linearize, + Concr,languages,parse,parseWithHeuristics,linearize, -- * Trees Expr,readExpr,showExpr,unApp, -- * Morphology @@ -234,8 +234,8 @@ getAnalysis ref self c_lemma c_anal prob exn = do parse :: Concr -> String -> String -> Either String [(Expr,Float)] parse lang cat sent = parse_with_heuristics lang cat sent (-1.0) [] -parse_with_heuristics :: Concr -> String -> String -> Double -> [(String, Int -> String -> Int -> Maybe (Expr,Float,Int))] -> Either String [(Expr,Float)] -parse_with_heuristics lang cat sent heuristic callbacks = +parseWithHeuristics :: Concr -> String -> String -> Double -> [(String, Int -> String -> Int -> Maybe (Expr,Float,Int))] -> Either String [(Expr,Float)] +parseWithHeuristics lang cat sent heuristic callbacks = unsafePerformIO $ do parsePl <- gu_new_pool exprPl <- gu_new_pool |
