diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-01 08:46:52 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-01 08:46:52 +0200 |
| commit | 5a37660811d2b23439a542c70cd09bdda9418a1a (patch) | |
| tree | 2d5adac94b7d5ac7a4b69aca3cfdfd4927f00b99 /src/runtime/haskell-bind/PGF2.hsc | |
| parent | 1182a9b63d983a749829d774ef05e3dd7dfe6a8e (diff) | |
added function treeProbability in the Haskell binding
Diffstat (limited to 'src/runtime/haskell-bind/PGF2.hsc')
| -rw-r--r-- | src/runtime/haskell-bind/PGF2.hsc | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/runtime/haskell-bind/PGF2.hsc b/src/runtime/haskell-bind/PGF2.hsc index 4523279dd..54c413a34 100644 --- a/src/runtime/haskell-bind/PGF2.hsc +++ b/src/runtime/haskell-bind/PGF2.hsc @@ -39,6 +39,8 @@ module PGF2 (-- * PGF mkFloat,unFloat, mkMeta,unMeta, mkCId, + treeProbability, + -- ** Types Type, Hypo, BindType(..), startCat, readType, showType, @@ -314,6 +316,13 @@ compute (PGF p _) (Expr c_expr touch1) = gu_pool_free exprPl throwIO (PGFError msg) +treeProbability :: PGF -> Expr -> Float +treeProbability (PGF p _) (Expr c_expr touch1) = + unsafePerformIO $ do + res <- pgf_compute_tree_probability p c_expr + touch1 + return (realToFrac res) + ----------------------------------------------------------------------------- -- Graphviz |