From f06638cc7d90eb8298180d36e79fc292a9f898dc Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Mon, 31 Oct 2005 18:02:34 +0000
Subject: probabilities in ShellState

---
 src/GF/UseGrammar/Custom.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'src/GF/UseGrammar/Custom.hs')

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)
 
-- 
cgit v1.2.3