From 446aa1b5db35402dbdd0821eec4ea1bbbed7d0f9 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Tue, 30 Sep 2008 11:52:11 +0000
Subject: Added --cfg option for specifying which CFG transformations to use.
 Added startcatonly CFG trasnformation. Removed output formats that are now
 easily done with --cfg: "regular", "nolr".

---
 src/GF/Speech/GSL.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/GF/Speech/GSL.hs')

diff --git a/src/GF/Speech/GSL.hs b/src/GF/Speech/GSL.hs
index 5acf2476e..8f26ea64c 100644
--- a/src/GF/Speech/GSL.hs
+++ b/src/GF/Speech/GSL.hs
@@ -12,6 +12,7 @@ import GF.Data.Utilities
 import GF.Speech.CFG
 import GF.Speech.SRG
 import GF.Speech.RegExp
+import GF.Infra.Option
 import GF.Infra.Ident
 import PGF.CId
 import PGF.Data
@@ -23,8 +24,8 @@ import Text.PrettyPrint.HughesPJ
 width :: Int
 width = 75
 
-gslPrinter :: PGF -> CId -> String
-gslPrinter pgf cnc = renderStyle st $ prGSL $ makeNonLeftRecursiveSRG pgf cnc
+gslPrinter :: Options -> PGF -> CId -> String
+gslPrinter opts pgf cnc = renderStyle st $ prGSL $ makeNonLeftRecursiveSRG opts pgf cnc
   where st = style { lineLength = width } 
 
 prGSL :: SRG -> Doc
-- 
cgit v1.2.3