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/compiler | |
| parent | 1182a9b63d983a749829d774ef05e3dd7dfe6a8e (diff) | |
added function treeProbability in the Haskell binding
Diffstat (limited to 'src/compiler')
| -rw-r--r-- | src/compiler/GF/Command/Commands2.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Command/Commands2.hs b/src/compiler/GF/Command/Commands2.hs index 2621bc9a4..8a722824e 100644 --- a/src/compiler/GF/Command/Commands2.hs +++ b/src/compiler/GF/Command/Commands2.hs @@ -650,7 +650,7 @@ pgfCommands = Map.fromList [ Left msg -> error msg Right (e,ty) -> do putStrLn ("Expression: "++PGF2.showExpr [] e) putStrLn ("Type: "++PGF2.showType [] ty) - -- putStrLn ("Probability: "++show (H.probTree pgf e)) + putStrLn ("Probability: "++show (treeProbability pgf e)) return void _ -> do putStrLn "a single function name or category name is expected" return void, |