diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-04-13 13:33:35 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-04-13 13:33:35 +0000 |
| commit | aa309abecf2640daf015c5afaffacb3668777b3f (patch) | |
| tree | 7d538a26d24800b206df58d22baf361b5d1f935e /src/GF/Speech/PrGSL.hs | |
| parent | 293a0eb98879646643d6f3919f80cd83066a8b1b (diff) | |
Added top-down filtering to the GSL printer.
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 b5532f07d..5fdb28e8e 100644 --- a/src/GF/Speech/PrGSL.hs +++ b/src/GF/Speech/PrGSL.hs @@ -33,7 +33,7 @@ import Data.Char (toUpper,toLower) gslPrinter :: Ident -- ^ Grammar name -> Options -> Maybe Probs -> CGrammar -> String gslPrinter name opts probs cfg = prGSL srg "" - where srg = makeSimpleSRG name opts probs $ rmPunctCFG cfg + where srg = topDownFilter $ makeSimpleSRG name opts probs $ rmPunctCFG cfg prGSL :: SRG -> ShowS prGSL (SRG{grammarName=name,startCat=start,origStartCat=origStart,rules=rs}) |