From dabc4f1b8d7a7b7b4d332d1182efd6d057fdc126 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Tue, 14 Sep 2004 15:05:37 +0000
Subject: gsl printer now figures out startcat from grammar flags

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

(limited to 'src/GF/UseGrammar/Custom.hs')

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