From 278a0ab45d02e85ba6d863615abaaf24bba5317b Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 10 May 2007 12:51:40 +0000 Subject: printing abs as BNF --- src/GF/UseGrammar/Custom.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/GF/UseGrammar/Custom.hs') diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 32b7cffa0..bbfb1e09e 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -96,6 +96,7 @@ import qualified GF.Conversion.Prolog as CnvProlog import qualified GF.Conversion.TypeGraph as CnvTypeGraph import GF.Canon.Unparametrize import GF.Canon.Subexpressions +import GF.Canon.AbsToBNF import GF.Canon.GFC import qualified GF.Canon.MkGFC as MC @@ -267,6 +268,7 @@ customGrammarPrinter = ,(strCI "plbnf", \_ -> prLBNF True) ,(strCI "lbnf", \_ -> prLBNF False) ,(strCI "bnf", \_ -> prBNF False) + ,(strCI "absbnf", \_ -> abstract2bnf . stateGrammarST) ,(strCI "haskell", \_ -> grammar2haskell . stateGrammarST) ,(strCI "transfer", \_ -> grammar2transfer . stateGrammarST) ,(strCI "morpho", \_ -> prMorpho . stateMorpho) -- cgit v1.2.3