diff options
| author | aarne <unknown> | 2005-09-18 21:55:46 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-09-18 21:55:46 +0000 |
| commit | db4cf670d078e0e72883b3af1b28e665326027d9 (patch) | |
| tree | 20219be8fb4034f80cec1492aedbf56f080659cc /src/GF/UseGrammar/Custom.hs | |
| parent | 076452779cdfefa45888935ab24ed342d8e56b54 (diff) | |
common subexp elimination
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 19af14984..c7c68362b 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/09/14 16:26:22 $ +-- > CVS $Date: 2005/09/18 22:55:46 $ -- > CVS $Author: aarne $ --- > CVS $Revision: 1.73 $ +-- > CVS $Revision: 1.74 $ -- -- A database for customizable GF shell commands. -- @@ -82,6 +82,7 @@ import qualified GF.Conversion.Types as CnvTypes import qualified GF.Conversion.Haskell as CnvHaskell import qualified GF.Conversion.Prolog as CnvProlog import GF.Canon.Unparametrize +import GF.Canon.Subexpressions import GF.Canon.GFC import qualified GF.Canon.MkGFC as MC @@ -260,6 +261,7 @@ customGrammarPrinter = ,(strCI "printnames", C.prPrintnamesGrammar . stateGrammarST) ,(strCI "stat", prStatistics . stateGrammarST) ,(strCI "unpar", prCanon . unparametrizeCanon . stateGrammarST) + ,(strCI "subs", prSubtermStat . stateGrammarST) {- ---- (strCI "gf", prt . st2grammar . stateGrammarST) -- DEFAULT |