From 6ee7296f9dd5290bb3ee581403a18464444ab28b Mon Sep 17 00:00:00 2001 From: bringert Date: Fri, 5 Jan 2007 15:38:47 +0000 Subject: Changed all SRG printer to take Options and StateGrammar arguments. This makes Custom a lot cleaner. --- src/GF/Speech/PrRegExp.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/GF/Speech/PrRegExp.hs') diff --git a/src/GF/Speech/PrRegExp.hs b/src/GF/Speech/PrRegExp.hs index 0f661edac..50156c42b 100644 --- a/src/GF/Speech/PrRegExp.hs +++ b/src/GF/Speech/PrRegExp.hs @@ -12,11 +12,11 @@ module GF.Speech.PrRegExp (regexpPrinter) where import GF.Conversion.Types import GF.Infra.Ident +import GF.Infra.Option (Options) import GF.Speech.CFGToFiniteState import GF.Speech.RegExp import GF.Compile.ShellState (StateGrammar) -regexpPrinter :: Ident -- ^ Grammar name - -> String -> StateGrammar -> String -regexpPrinter name start = prRE . dfa2re . cfgToFA start +regexpPrinter :: Options -> StateGrammar -> String +regexpPrinter opts s = prRE $ dfa2re $ cfgToFA opts s -- cgit v1.2.3