X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FListSetOps.lhs;h=39172473d90063889bcb1ceb35f5a9e51c399e13;hp=dbc749c2e21d0d24751e9f25a4e4bdf5323a7c3f;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09

diff --git a/ghc/compiler/utils/ListSetOps.lhs b/ghc/compiler/utils/ListSetOps.lhs
index dbc749c..3917247 100644
--- a/ghc/compiler/utils/ListSetOps.lhs
+++ b/ghc/compiler/utils/ListSetOps.lhs
@@ -4,21 +4,23 @@
 \section[ListSetOps]{Set-like operations on lists}
 
 \begin{code}
+#ifdef COMPILING_GHC
+#include "HsVersions.h"
+#endif
+
 module ListSetOps (
 	unionLists,
 	intersectLists,
 	minusList
-#if ! defined(COMPILING_GHC)
+#ifndef COMPILING_GHC
 	, disjointLists, intersectingLists
 #endif
    ) where
 
 #if defined(COMPILING_GHC)
-import Util
-# ifdef USE_ATTACK_PRAGMAS
-import AbsUniType
-import Id		( Id )
-# endif
+IMP_Ubiq(){-uitous-}
+
+import Util	( isIn, isn'tIn )
 #endif
 \end{code}
 
@@ -77,19 +79,3 @@ disjointLists (a:as) bs
 intersectingLists xs ys = not (disjointLists xs ys)
 #endif
 \end{code}
-
-\begin{code}
-#if defined(COMPILING_GHC)
-# ifdef USE_ATTACK_PRAGMAS
-
-{-# SPECIALIZE unionLists     :: [TyVar] -> [TyVar] -> [TyVar] #-}
-{-# SPECIALIZE intersectLists :: [TyVar] -> [TyVar] -> [TyVar] #-}
-
-{-# SPECIALIZE minusList :: [TyVar] -> [TyVar] -> [TyVar],
-			    [Id]    -> [Id]    -> [Id],
-			    [Int]   -> [Int]   -> [Int]
- #-}
-
-# endif
-#endif
-\end{code}