\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 Type
-import Id ( Id )
-# endif
+IMP_Ubiq(){-uitous-}
+
+import Util ( isIn, isn'tIn )
#endif
\end{code}
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}