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

[ghc-hetmet.git] / ghc / compiler / absCSyn / AbsCUtils.lhs

diff --git a/ghc/compiler/absCSyn/AbsCUtils.lhs b/ghc/compiler/absCSyn/AbsCUtils.lhs
index 52212dc..202b8f7 100644 (file)
--- a/ghc/compiler/absCSyn/AbsCUtils.lhs
+++ b/ghc/compiler/absCSyn/AbsCUtils.lhs
@@ -4,8 +4,6 @@
 \section[AbsCUtils]{Help functions for Abstract~C datatype}
 
 \begin{code}
-#include "HsVersions.h"
-
 module AbsCUtils (
        nonemptyAbsC,
        mkAbstractCs, mkAbsCStmts,
@@ -19,7 +17,8 @@ module AbsCUtils (
        -- printing/forcing stuff comes from PprAbsC
     ) where
 
-IMP_Ubiq(){-uitous-}
+#include "HsVersions.h"
+
 import {-# SOURCE #-} CLabel   ( mkReturnPtLabel, CLabel )
        -- The loop here is (CLabel -> CgRetConv -> AbsCUtils -> CLabel)
 
@@ -27,12 +26,12 @@ import AbsCSyn
 
 import Digraph         ( stronglyConnComp, SCC(..) )
 import HeapOffs                ( possiblyEqualHeapOffset )
-import Id              ( fIRST_TAG, SYN_IE(ConTag) )
+import Id              ( fIRST_TAG, ConTag )
 import Literal         ( literalPrimRep, Literal(..) )
 import PrimRep         ( getPrimRepSize, PrimRep(..) )
 import Unique          ( Unique{-instance Eq-} )
 import UniqSupply      ( getUnique, getUniques, splitUniqSupply, UniqSupply )
-import Util            ( assocDefaultUsing, panic, Ord3(..) )
+import Util            ( assocDefaultUsing, panic )
 
 infixr 9 `thenFlt`
 \end{code}