1
0
forked from GitHub/gf-core

Use nub' instead of nub in some places, remove some unused nub imports

This commit is contained in:
peter.ljunglof
2012-08-29 21:48:34 +00:00
parent a7de16c34b
commit b416f5bbf7
6 changed files with 6 additions and 7 deletions

View File

@@ -21,6 +21,7 @@ import GF.Infra.Option
import GF.Infra.UseIO
import GF.Data.Operations
import GF.Data.Utilities (nub')
import Data.Char
import Data.List
@@ -101,7 +102,7 @@ cf2grammar rules = (buildTree abs, buildTree conc, cat) where
(L _ (_,(c,_))):_ -> c -- the value category of the first rule
_ -> error "empty CF"
cats = [(cat, AbsCat (Just (L NoLoc []))) |
cat <- nub (concat (map cf2cat rules))] ----notPredef cat
cat <- nub' (concat (map cf2cat rules))] ----notPredef cat
lincats = [(cat, CncCat (Just (L loc defLinType)) Nothing Nothing Nothing) | (cat,AbsCat (Just (L loc _))) <- cats]
(funs,lins) = unzip (map cf2rule rules)

View File

@@ -39,7 +39,7 @@ import GF.Grammar.Printer
import GF.Grammar.Predef
import GF.Grammar.Lockfield
import Data.List (nub,sortBy)
import Data.List (sortBy)
import Control.Monad
import Text.PrettyPrint
import qualified Data.Map as Map