From bb1c1dd27c8adc007ef64546cae67ac729b05422 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 19 Dec 2014 08:47:00 +0000 Subject: added mkApp to the Haskell binding --- src/runtime/haskell-bind/PGF2/FFI.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/runtime/haskell-bind/PGF2') diff --git a/src/runtime/haskell-bind/PGF2/FFI.hs b/src/runtime/haskell-bind/PGF2/FFI.hs index 863431bca..528b80ea8 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -178,7 +178,10 @@ foreign import ccall "pgf/pgf.h pgf_fullform_get_string" foreign import ccall "pgf/pgf.h pgf_fullform_get_analyses" pgf_fullform_get_analyses :: Ptr PgfFullFormEntry -> Ptr PgfMorphoCallback -> Ptr GuExn -> IO () - + +foreign import ccall "pgf/pgf.h pgf_expr_apply" + pgf_expr_apply :: Ptr PgfApplication -> Ptr GuPool -> IO PgfExpr + foreign import ccall "pgf/pgf.h pgf_expr_unapply" pgf_expr_unapply :: PgfExpr -> Ptr GuPool -> IO (Ptr PgfApplication) -- cgit v1.2.3