msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

forgot to export parseWithHeuristics from Haskell

Browse Source
This commit is contained in:
kr.angelov
2014-12-16 10:33:45 +00:00
parent 9bc5349e62
commit 990dce35ae
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/runtime/haskell-bind/PGF2.hsc
View File

@@ -15,7 +15,7 @@
module PGF2 (-- * PGF module PGF2 (-- * PGF
PGF,readPGF,abstractName,startCat, PGF,readPGF,abstractName,startCat,
-- * Concrete syntax -- * Concrete syntax
Concr,languages,parse,linearize, Concr,languages,parse,parseWithHeuristics,linearize,
-- * Trees -- * Trees
Expr,readExpr,showExpr,unApp, Expr,readExpr,showExpr,unApp,
-- * Morphology -- * Morphology
@@ -234,8 +234,8 @@ getAnalysis ref self c_lemma c_anal prob exn = do
parse :: Concr -> String -> String -> Either String [(Expr,Float)] parse :: Concr -> String -> String -> Either String [(Expr,Float)]
parse lang cat sent = parse_with_heuristics lang cat sent (-1.0) [] 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)] parseWithHeuristics :: 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 lang cat sent heuristic callbacks =
unsafePerformIO $ unsafePerformIO $
do parsePl <- gu_new_pool do parsePl <- gu_new_pool
exprPl <- gu_new_pool exprPl <- gu_new_pool