[project @ 1996-07-19 18:36:04 by partain]

[ghc-hetmet.git] / ghc / compiler / utils / ListSetOps.lhs

diff --git a/ghc/compiler/utils/ListSetOps.lhs b/ghc/compiler/utils/ListSetOps.lhs
index fe9dcca..5a46b23 100644 (file)
--- a/ghc/compiler/utils/ListSetOps.lhs
+++ b/ghc/compiler/utils/ListSetOps.lhs
@@ -4,6 +4,8 @@
 \section[ListSetOps]{Set-like operations on lists}
 
 \begin{code}
+#include "HsVersions.h"
+
 module ListSetOps (
        unionLists,
        intersectLists,
@@ -14,11 +16,9 @@ module ListSetOps (
    ) where
 
 #if defined(COMPILING_GHC)
-import Util
-# ifdef USE_ATTACK_PRAGMAS
-import Type
-import Id              ( Id )
-# endif
+IMP_Ubiq(){-uitous-}
+
+import Util    ( isIn, isn'tIn )
 #endif
 \end{code}
 
@@ -77,19 +77,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}