diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-03-19 18:03:19 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-03-19 18:03:19 +0000 |
| commit | 3dacf21a416511e88659d20bbcec284e70b85ec7 (patch) | |
| tree | 7244b4903228dbe1468703b4b2f785e331142842 /src/GF/Speech/PrGSL.hs | |
| parent | 232c9cbb3729df3f78e7cd4e2119af30383c7e14 (diff) | |
Use makeSimpleSRG everywhere and remove makeSRG. Reimplemented top-down filtering in terms of CFRules instead of SRG. Do top-down filtering in makeSimpleSRG.
Diffstat (limited to 'src/GF/Speech/PrGSL.hs')
| -rw-r--r-- | src/GF/Speech/PrGSL.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/PrGSL.hs b/src/GF/Speech/PrGSL.hs index bec461c40..4dabbd84b 100644 --- a/src/GF/Speech/PrGSL.hs +++ b/src/GF/Speech/PrGSL.hs @@ -32,7 +32,7 @@ import GF.Compile.ShellState (StateGrammar) import Data.Char (toUpper,toLower) gslPrinter :: Options -> StateGrammar -> String -gslPrinter opts s = prGSL $ topDownFilter $ makeSimpleSRG opts s +gslPrinter opts s = prGSL $ makeSimpleSRG opts s prGSL :: SRG -> String prGSL (SRG{grammarName=name,startCat=start,origStartCat=origStart,rules=rs}) |