From 35f884ddfd984edb7d580cd54c6f2f1ad9358a34 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Tue, 14 Sep 2004 15:45:17 +0000
Subject: Use grammar name as gsl category name prefix. Put some grammar info
 in GSL comments.

---
 src/GF/UseGrammar/Custom.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/GF/UseGrammar')

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)
-- 
cgit v1.2.3