From 85cf2d9f5a1018219beb51c1172842cddda1f544 Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Tue, 5 Sep 2017 09:50:29 +0200 Subject: added exprSize in the Haskell binding --- src/runtime/haskell-bind/PGF2/FFI.hs | 3 +++ 1 file changed, 3 insertions(+) (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 ce4dd6983..85c3a9793 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -331,6 +331,9 @@ foreign import ccall "pgf/expr.h pgf_expr_eq" foreign import ccall "pgf/expr.h pgf_expr_hash" pgf_expr_hash :: Word -> PgfExpr -> IO Word +foreign import ccall "pgf/expr.h pgf_expr_size" + pgf_expr_size :: PgfExpr -> IO CInt + foreign import ccall "pgf/expr.h pgf_compute_tree_probability" pgf_compute_tree_probability :: Ptr PgfPGF -> PgfExpr -> IO CFloat -- cgit v1.2.3