diff options
| author | bringert <unknown> | 2004-09-14 15:05:37 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2004-09-14 15:05:37 +0000 |
| commit | dabc4f1b8d7a7b7b4d332d1182efd6d057fdc126 (patch) | |
| tree | 924ce51032a89437ba687fe8536b6dd516a647da /src/GF/UseGrammar | |
| parent | 87eec27336bd9c2f123cffe56a67cc919c8da09b (diff) | |
gsl printer now figures out startcat from grammar flags
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 4fd12f12a..856f31b01 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -27,7 +27,7 @@ import PrGrammar import PrOld import MkGFC import CFtoSRG -import PrGSL (prGSL) +import PrGSL (gslPrinter) import Zipper @@ -191,7 +191,7 @@ customGrammarPrinter = ,(strCI "cf", prCF . stateCF) ,(strCI "old", printGrammarOld . stateGrammarST) ,(strCI "srg", prSRG . stateCF) - ,(strCI "gsl", prGSL . Cnv.cfg . statePInfo) + ,(strCI "gsl", \s -> gslPrinter (stateOptions s) $ Cnv.cfg $ statePInfo s) ,(strCI "lbnf", prLBNF . stateCF) ,(strCI "haskell", grammar2haskell . stateGrammarST) ,(strCI "morpho", prMorpho . stateMorpho) |