diff options
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 |