diff options
| author | bjorn <bjorn@bringert.net> | 2008-09-30 09:39:09 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-09-30 09:39:09 +0000 |
| commit | 3ca6c605b02b34162ce245839eb3e6d06c3d49b9 (patch) | |
| tree | 126581ef71d2fa8c4ec7d1e0aa97c65ce8256d60 /src | |
| parent | 41c95825f331b075d1b7697f75485264b78db3b9 (diff) | |
Use filtering in regular printer.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/Speech/SRG.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs index 64ec8f78b..b51808d9f 100644 --- a/src/GF/Speech/SRG.hs +++ b/src/GF/Speech/SRG.hs @@ -79,9 +79,12 @@ nonLeftRecursivePrinter :: Maybe SISRFormat -> PGF -> CId -> String nonLeftRecursivePrinter sisr pgf cnc = prSRG sisr $ makeNonLeftRecursiveSRG pgf cnc regularPrinter :: PGF -> CId -> String -regularPrinter pgf cnc = prSRG Nothing $ makeSRG makeRegular pgf cnc +regularPrinter pgf cnc = prSRG Nothing $ makeSRG preprocess pgf cnc where - preprocess = makeRegular + preprocess = mergeIdentical + . makeRegular + . topDownFilter + . bottomUpFilter makeSRG :: (CFG -> CFG) -> PGF -> CId -> SRG makeSRG = mkSRG cfgToSRG |