[project @ 1998-01-08 18:03:08 by simonm]

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

diff --git a/ghc/compiler/utils/ListSetOps.lhs b/ghc/compiler/utils/ListSetOps.lhs
index d2737a4..dfa2cd0 100644 (file)
--- a/ghc/compiler/utils/ListSetOps.lhs
+++ b/ghc/compiler/utils/ListSetOps.lhs
@@ -4,8 +4,6 @@
 \section[ListSetOps]{Set-like operations on lists}
 
 \begin{code}
-#include "HsVersions.h"
-
 module ListSetOps (
        unionLists,
        --UNUSED: intersectLists,
@@ -13,13 +11,10 @@ module ListSetOps (
 
    ) where
 
-IMP_Ubiq(){-uitous-}
+#include "HsVersions.h"
 
 import Util    ( isIn, isn'tIn )
-
-#if __GLASGOW_HASKELL__ >= 202
-import List
-#endif
+import List    ( union )
 \end{code}
 
 \begin{code}