diff options
| author | aarne <unknown> | 2004-09-28 11:55:10 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-09-28 11:55:10 +0000 |
| commit | 422b626a361c08b911471c04159931756887335c (patch) | |
| tree | 11ddf39975fcc6db43038a18e755e9c264f894cd /src/GF/UseGrammar/Custom.hs | |
| parent | c9f6079aa362413519cb559dc21257f134e7b118 (diff) | |
revising tex
Diffstat (limited to 'src/GF/UseGrammar/Custom.hs')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 643c16661..9119b8f36 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -194,8 +194,9 @@ customGrammarPrinter = ,(strCI "gsl", \s -> let opts = stateOptions s name = cncId s in gslPrinter name opts $ Cnv.cfg $ statePInfo s) - ,(strCI "lbnf", prLBNF . stateCF) - ,(strCI "bnf", prBNF . stateCF) + ,(strCI "plbnf", prLBNF True) + ,(strCI "lbnf", prLBNF False) + ,(strCI "bnf", prBNF False) ,(strCI "haskell", grammar2haskell . stateGrammarST) ,(strCI "morpho", prMorpho . stateMorpho) ,(strCI "fullform",prFullForm . stateMorpho) |