diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-06-27 17:22:59 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-06-27 17:22:59 +0000 |
| commit | af36dcf13d310c6acf256c21a18fa4cb1f7062f1 (patch) | |
| tree | 93d3a9bfd23028686dd5e9874d4e6c391f211ff4 /src/GF/Speech/PrFA.hs | |
| parent | bb09506ecee1f470203ee4bff7e236d455d8eaf0 (diff) | |
Refactor TransformCFG: use Map for CFRules.
Diffstat (limited to 'src/GF/Speech/PrFA.hs')
| -rw-r--r-- | src/GF/Speech/PrFA.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/PrFA.hs b/src/GF/Speech/PrFA.hs index 883c25244..acee00a31 100644 --- a/src/GF/Speech/PrFA.hs +++ b/src/GF/Speech/PrFA.hs @@ -45,7 +45,7 @@ regularPrinter :: Options -> StateGrammar -> String regularPrinter opts s = prCFRules $ makeSimpleRegular opts s where prCFRules :: CFRules -> String - prCFRules g = unlines [ c ++ " ::= " ++ join " | " (map (showRhs . ruleRhs) rs) | (c,rs) <- g] + prCFRules g = unlines [ c ++ " ::= " ++ join " | " (map (showRhs . ruleRhs) rs) | (c,rs) <- allRulesGrouped g] join g = concat . intersperse g showRhs = unwords . map (symbol id show) |