diff options
| author | aarne <unknown> | 2004-04-19 15:33:45 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2004-04-19 15:33:45 +0000 |
| commit | 2e0c510285ac1cabefea0ab68ffb1215d7297578 (patch) | |
| tree | 805df5361f07e0ff22c9eb69c0daf9abb6353aba /src/GF/CF | |
| parent | fa07ada6ab11f8e0820fe075ce58d8ca700e13e3 (diff) | |
some more printing
Diffstat (limited to 'src/GF/CF')
| -rw-r--r-- | src/GF/CF/CFtoSRG.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/CF/CFtoSRG.hs b/src/GF/CF/CFtoSRG.hs index c90a772d8..899fdcfe5 100644 --- a/src/GF/CF/CFtoSRG.hs +++ b/src/GF/CF/CFtoSRG.hs @@ -22,7 +22,7 @@ import CF import CFIdent ---import UseGrammar import PPrCF -import List (intersperse) +import List (intersperse,nub) header :: String header = unlines ["#ABNF 1.0 ISO-8859-1;\n", @@ -38,7 +38,7 @@ prSRGC :: [CFCat] -> CF -> String prSRGC [] _ = [] prSRGC (c:cs) cf = "$" ++ prCFCat c ++ " = " ++ items ++ ";\n"++ prSRGC cs cf where items = concat $ intersperse " | " $ - map f $ map valItemsCF (rulesForCFCat cf c) + map f $ nub $ map valItemsCF (rulesForCFCat cf c) f [] = "$NULL" f xs = unwords $ map prSRGItem xs |