diff options
Diffstat (limited to 'src/GF/Speech/GSL.hs')
| -rw-r--r-- | src/GF/Speech/GSL.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 |