summaryrefslogtreecommitdiff
path: root/src/GF/UseGrammar/Custom.hs
diff options
context:
space:
mode:
authoraarne <unknown>2004-04-19 15:33:45 +0000
committeraarne <unknown>2004-04-19 15:33:45 +0000
commit2e0c510285ac1cabefea0ab68ffb1215d7297578 (patch)
tree805df5361f07e0ff22c9eb69c0daf9abb6353aba /src/GF/UseGrammar/Custom.hs
parentfa07ada6ab11f8e0820fe075ce58d8ca700e13e3 (diff)
some more printing
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
-rw-r--r--src/GF/UseGrammar/Custom.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs
index 166f918ae..ac47a9758 100644
--- a/src/GF/UseGrammar/Custom.hs
+++ b/src/GF/UseGrammar/Custom.hs
@@ -19,10 +19,11 @@ import Option
import CF
import CFIdent
----- import CFtoGrammar
+import CanonToGrammar
import PPrCF
import PrLBNF
import PrGrammar
+import PrOld
import MkGFC
import CFtoSRG
@@ -145,7 +146,9 @@ customGrammarPrinter =
customData "Grammar printers, selected by option -printer=x" $
[
(strCI "gfc", prCanon . stateGrammarST) -- DEFAULT
+ ,(strCI "gf", err id prGrammar . canon2sourceGrammar . stateGrammarST)
,(strCI "cf", prCF . stateCF)
+ ,(strCI "old", printGrammarOld . stateGrammarST)
,(strCI "srg", prSRG . stateCF)
,(strCI "lbnf", prLBNF . stateCF)
,(strCI "morpho", prMorpho . stateMorpho)