diff options
| author | bringert <unknown> | 2004-09-14 15:45:17 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2004-09-14 15:45:17 +0000 |
| commit | 35f884ddfd984edb7d580cd54c6f2f1ad9358a34 (patch) | |
| tree | 2129585171a5d642faccc2c730f22eea0d11145c /src/GF/UseGrammar | |
| parent | dabc4f1b8d7a7b7b4d332d1182efd6d057fdc126 (diff) | |
Use grammar name as gsl category name prefix. Put some grammar info in GSL comments.
Diffstat (limited to 'src/GF/UseGrammar')
| -rw-r--r-- | src/GF/UseGrammar/Custom.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/UseGrammar/Custom.hs b/src/GF/UseGrammar/Custom.hs index 856f31b01..f719d7bec 100644 --- a/src/GF/UseGrammar/Custom.hs +++ b/src/GF/UseGrammar/Custom.hs @@ -191,7 +191,9 @@ customGrammarPrinter = ,(strCI "cf", prCF . stateCF) ,(strCI "old", printGrammarOld . stateGrammarST) ,(strCI "srg", prSRG . stateCF) - ,(strCI "gsl", \s -> gslPrinter (stateOptions s) $ Cnv.cfg $ statePInfo s) + ,(strCI "gsl", \s -> let opts = stateOptions s + name = cncId s + in gslPrinter name opts $ Cnv.cfg $ statePInfo s) ,(strCI "lbnf", prLBNF . stateCF) ,(strCI "haskell", grammar2haskell . stateGrammarST) ,(strCI "morpho", prMorpho . stateMorpho) |