diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-01-05 14:34:20 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-01-05 14:34:20 +0000 |
| commit | 741dde5a2a00dc737e570a7005663c2534ea4f6d (patch) | |
| tree | 6aebd85fc4d9417a0bb3fbfb450fcf3ea72101b8 /src/GF/Speech/PrRegExp.hs | |
| parent | 2b1c6763cc29857ba2890a12eb4330f6e03edd06 (diff) | |
Change input to the different SRG printers to be StateGrammar instead of CGrammar. This to allow looking at the types in SISR, and to reduce the number of argument passed from Custom.
Diffstat (limited to 'src/GF/Speech/PrRegExp.hs')
| -rw-r--r-- | src/GF/Speech/PrRegExp.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Speech/PrRegExp.hs b/src/GF/Speech/PrRegExp.hs index c0aadab00..0f661edac 100644 --- a/src/GF/Speech/PrRegExp.hs +++ b/src/GF/Speech/PrRegExp.hs @@ -14,8 +14,9 @@ import GF.Conversion.Types import GF.Infra.Ident import GF.Speech.CFGToFiniteState import GF.Speech.RegExp +import GF.Compile.ShellState (StateGrammar) regexpPrinter :: Ident -- ^ Grammar name - -> String -> CGrammar -> String -regexpPrinter name start cfg = prRE $ dfa2re $ cfgToFA start cfg + -> String -> StateGrammar -> String +regexpPrinter name start = prRE . dfa2re . cfgToFA start |