diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-03 19:32:42 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-03 19:32:42 +0000 |
| commit | 7237438a94ae81a29b45b91a9929133afeb95831 (patch) | |
| tree | cb73fa3951563471c3ad0579569cf3251b5724b4 /src-3.0/GF/Speech | |
| parent | 2ee8ab8a714a1b2b4cf906583c04df1ee38b2cdc (diff) | |
Added "bnf" output format for debugging.
Diffstat (limited to 'src-3.0/GF/Speech')
| -rw-r--r-- | src-3.0/GF/Speech/CFG.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src-3.0/GF/Speech/CFG.hs b/src-3.0/GF/Speech/CFG.hs index 68a34caec..98d31c9f6 100644 --- a/src-3.0/GF/Speech/CFG.hs +++ b/src-3.0/GF/Speech/CFG.hs @@ -270,7 +270,7 @@ countRules = length . allRules prCFG :: CFG -> String prCFG = unlines . map prRule . allRules where - prRule r = lhsCat r ++ " --> " ++ unwords (map prSym (ruleRhs r)) + prRule r = lhsCat r ++ " ::= " ++ unwords (map prSym (ruleRhs r)) prSym = symbol id (\t -> "\""++ t ++"\"") -- |