diff options
Diffstat (limited to 'src/runtime/haskell-bind/PGF2.hsc')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index 7910ece81..ad7deb1b1 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -267,8 +267,7 @@ addLiteral :: Concr -> String -> (Int -> String -> Int -> Maybe (Expr,Float,Int) addLiteral lang cat match = withCString cat $ \ccat -> withGuPool $ \tmp_pool -> do - pool <- pgf_concr_get_pool (concr lang) - callback <- gu_malloc pool (#size PgfLiteralCallback) + callback <- hspgf_new_literal_callback (concr lang) match <- wrapLiteralMatchCallback match_callback predict <- wrapLiteralPredictCallback predict_callback (#poke PgfLiteralCallback, match) callback match @@ -283,7 +282,7 @@ addLiteral lang cat match = msg <- peekCString c_msg throwIO (PGFError msg) else throwIO (PGFError "The literal cannot be added") - else do return () + else return () where match_callback _ clin_idx csentence poffset out_pool = do sentence <- peekCString csentence |