summaryrefslogtreecommitdiff
path: root/src/GF/Speech/PrRegExp.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/GF/Speech/PrRegExp.hs')
-rw-r--r--src/GF/Speech/PrRegExp.hs6
1 files changed, 3 insertions, 3 deletions
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