diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2014-12-16 10:35:56 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2014-12-16 10:35:56 +0000 |
| commit | 6b2ef03af929aaaef3ecb58401a1718a805530a2 (patch) | |
| tree | b09f5841413afa43dc8b4aeab554a5bf73012aa9 /src/runtime | |
| parent | 990dce35ae4ec5d644323383c34e0ff4938a3454 (diff) | |
fix in the Haskell binding
Diffstat (limited to 'src/runtime')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index 8fa3a0f65..ca38dedfb 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -232,7 +232,7 @@ getAnalysis ref self c_lemma c_anal prob exn = do writeIORef ref ((lemma, anal, prob):ans) parse :: Concr -> String -> String -> Either String [(Expr,Float)] -parse lang cat sent = parse_with_heuristics lang cat sent (-1.0) [] +parse lang cat sent = parseWithHeuristics lang cat sent (-1.0) [] parseWithHeuristics :: Concr -> String -> String -> Double -> [(String, Int -> String -> Int -> Maybe (Expr,Float,Int))] -> Either String [(Expr,Float)] parseWithHeuristics lang cat sent heuristic callbacks = |