diff options
Diffstat (limited to 'compiler/GHC/Data/List/SetOps.hs')
| -rw-r--r-- | compiler/GHC/Data/List/SetOps.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/GHC/Data/List/SetOps.hs b/compiler/GHC/Data/List/SetOps.hs index 6c06e6017c..32f373d17b 100644 --- a/compiler/GHC/Data/List/SetOps.hs +++ b/compiler/GHC/Data/List/SetOps.hs @@ -23,8 +23,6 @@ module GHC.Data.List.SetOps ( getNth ) where -#include "HsVersions.h" - import GHC.Prelude import GHC.Utils.Outputable @@ -63,7 +61,7 @@ unionLists xs [y] | isIn "unionLists" y xs = xs | otherwise = y:xs unionLists xs ys - = WARN(lengthExceeds xs 100 || lengthExceeds ys 100, ppr xs $$ ppr ys) + = warnPprTrace (lengthExceeds xs 100 || lengthExceeds ys 100) (ppr xs $$ ppr ys) $ [x | x <- xs, isn'tIn "unionLists" x ys] ++ ys -- | Calculate the set difference of two lists. This is |