diff options
| author | aarne <unknown> | 2005-06-29 15:27:56 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-06-29 15:27:56 +0000 |
| commit | 093ac15f72cc6436fd0ba13d3fbc1581b651a606 (patch) | |
| tree | 8b99f006f237b1b9cb06b443da613f3d9855a5c9 /src/GF/UseGrammar/Custom.hs | |
| parent | 99ea0f8bfc2eae01ce3850539f0b786b9b6a1a8c (diff) | |
unoptimize for Java ; Finnish
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 40c625612..b04875e56 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/06/23 14:32:44 $ +-- > CVS $Date: 2005/06/29 16:27:56 $ -- > CVS $Author: aarne $ --- > CVS $Revision: 1.65 $ +-- > CVS $Revision: 1.66 $ -- -- A database for customizable GF shell commands. -- @@ -39,6 +39,7 @@ import qualified GF.Grammar.MMacros as MM import GF.Grammar.AbsCompute import GF.Grammar.TypeCheck import GF.UseGrammar.Generate +import GF.UseGrammar.Linear (unoptimizeCanon) ------import Compile import GF.Compile.ShellState import GF.UseGrammar.Editing @@ -282,7 +283,7 @@ customMultiGrammarPrinter = customData "Printers for multiple grammars, selected by option -printer=x" $ [ (strCI "gfcm", const MC.prCanon) - ,(strCI "header", const MC.prCanonMGr) + ,(strCI "header", const (MC.prCanonMGr . unoptimizeCanon)) ,(strCI "cfgm", prCanonAsCFGM) ,(strCI "graph", visualizeCanonGrammar) ] |