diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-05 09:46:43 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-05 09:46:43 +0200 |
| commit | a5fe5b9378937a35fa7921c6ed62ec9efa059934 (patch) | |
| tree | bf11774a2b8777ca3a9f9d2c59599ad18d1cf82e /src/runtime/haskell-bind/PGF2 | |
| parent | 08d781833cbe2474d12a54e059eebd6aa139d800 (diff) | |
added exprHash in the Haskell binding
Diffstat (limited to 'src/runtime/haskell-bind/PGF2')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2/FFI.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/PGF2/FFI.hs b/src/runtime/haskell-bind/PGF2/FFI.hs index 3870e2fba..ce4dd6983 100644 --- a/src/runtime/haskell-bind/PGF2/FFI.hs +++ b/src/runtime/haskell-bind/PGF2/FFI.hs @@ -328,6 +328,9 @@ foreign import ccall "pgf/expr.h pgf_expr_arity" foreign import ccall "pgf/expr.h pgf_expr_eq" pgf_expr_eq :: PgfExpr -> PgfExpr -> IO CInt +foreign import ccall "pgf/expr.h pgf_expr_hash" + pgf_expr_hash :: Word -> PgfExpr -> IO Word + foreign import ccall "pgf/expr.h pgf_compute_tree_probability" pgf_compute_tree_probability :: Ptr PgfPGF -> PgfExpr -> IO CFloat |