diff options
| author | aarne <unknown> | 2005-10-31 18:02:34 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-10-31 18:02:34 +0000 |
| commit | f06638cc7d90eb8298180d36e79fc292a9f898dc (patch) | |
| tree | b33a7459a5e777a319c3d85dbf21da62b8a34358 /src/GF/UseGrammar/Custom.hs | |
| parent | 94f87d85023fc9b0e759600435e3c85cf31e3bc4 (diff) | |
probabilities in ShellState
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 9887a2371..67ed388f8 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/10/31 16:48:10 $ --- > CVS $Author: bringert $ --- > CVS $Revision: 1.79 $ +-- > CVS $Date: 2005/10/31 19:02:35 $ +-- > CVS $Author: aarne $ +-- > CVS $Revision: 1.80 $ -- -- A database for customizable GF shell commands. -- @@ -68,6 +68,7 @@ import GF.UseGrammar.Information import GF.API.GrammarToHaskell -----import GrammarToCanon (showCanon, showCanonOpt) -----import qualified GrammarToGFC as GFC +import GF.Probabilistic.Probabilistic (prProbs) -- the cf parsing algorithms import GF.CF.ChartParser -- OBSOLETE @@ -266,6 +267,7 @@ customGrammarPrinter = ,(strCI "words", unwords . stateGrammarWords) ,(strCI "printnames", C.prPrintnamesGrammar . stateGrammarST) ,(strCI "stat", prStatistics . stateGrammarST) + ,(strCI "probs", prProbs . stateProbs) ,(strCI "unpar", prCanon . unparametrizeCanon . stateGrammarST) ,(strCI "subs", prSubtermStat . stateGrammarST) |