summaryrefslogtreecommitdiff
path: root/src/runtime/haskell-bind
diff options
context:
space:
mode:
authorkr.angelov <kr.angelov@gmail.com>2014-12-16 10:33:45 +0000
committerkr.angelov <kr.angelov@gmail.com>2014-12-16 10:33:45 +0000
commit990dce35ae4ec5d644323383c34e0ff4938a3454 (patch)
tree7e31e74f33d501f871f618aa7e8ce989a29cc2dd /src/runtime/haskell-bind
parent9bc5349e622cf00156b46f56a940d035e000115a (diff)
forgot to export parseWithHeuristics from Haskell
Diffstat (limited to 'src/runtime/haskell-bind')
-rw-r--r--src/runtime/haskell-bind/PGF2.hsc6
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