diff options
Diffstat (limited to 'compiler/utils/ListSetOps.hs')
| -rw-r--r-- | compiler/utils/ListSetOps.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/compiler/utils/ListSetOps.hs b/compiler/utils/ListSetOps.hs index 4113566001..eaa79bd7fb 100644 --- a/compiler/utils/ListSetOps.hs +++ b/compiler/utils/ListSetOps.hs @@ -8,7 +8,7 @@ {-# LANGUAGE CPP #-} module ListSetOps ( - unionLists, minusList, insertList, + unionLists, minusList, -- Association lists Assoc, assoc, assocMaybe, assocUsing, assocDefault, assocDefaultUsing, @@ -41,10 +41,6 @@ getNth xs n = ASSERT2( xs `lengthExceeds` n, ppr n $$ ppr xs ) ************************************************************************ -} -insertList :: Eq a => a -> [a] -> [a] --- Assumes the arg list contains no dups; guarantees the result has no dups -insertList x xs | isIn "insert" x xs = xs - | otherwise = x : xs unionLists :: (Outputable a, Eq a) => [a] -> [a] -> [a] -- Assumes that the arguments contain no duplicates |