From ae67619853d029ea8049a114f44e59f4ca10b990 Mon Sep 17 00:00:00 2001 From: David Feuer Date: Thu, 2 Mar 2017 13:45:27 -0500 Subject: Eliminate ListSetOps from imp_trust_pkgs Eliminate ListSetOps from imp_trust_pkgs and imp_dep_pkgs Replace Map with NameEnv in TmOracle Reviewers: austin, dfeuer, bgamari Reviewed By: bgamari Subscribers: thomie Differential Revision: https://phabricator.haskell.org/D3113 --- compiler/utils/ListSetOps.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 'compiler/utils') 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 -- cgit v1.2.1