[project @ 1998-01-09 12:10:37 by simonm]

[ghc-hetmet.git] / ghc / compiler / codeGen / CodeGen.lhs

diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs
index bd164e7..a9437eb 100644 (file)
--- a/ghc/compiler/codeGen/CodeGen.lhs
+++ b/ghc/compiler/codeGen/CodeGen.lhs
@@ -15,11 +15,9 @@ functions drive the mangling of top-level bindings.
 %************************************************************************
 
 \begin{code}
-#include "HsVersions.h"
-
 module CodeGen ( codeGen ) where
 
-IMP_Ubiq(){-uitous-}
+#include "HsVersions.h"
 
 import StgSyn
 import CgMonad
@@ -38,11 +36,11 @@ import CmdLineOpts  ( opt_SccProfilingOn, opt_EnsureSplittableC,
 import CostCentre       ( CostCentre )
 import CStrings                ( modnameToC )
 import FiniteMap       ( FiniteMap )
-import Id               ( SYN_IE(Id) )
+import Id               ( Id )
 import Maybes          ( maybeToBool )
-import Name             ( SYN_IE(Module) )
+import Name             ( Module )
 import PrimRep         ( getPrimRepSize, PrimRep(..) )
-import Type             ( SYN_IE(Type) )
+import Type             ( Type )
 import TyCon            ( TyCon )
 import Util            ( panic, assertPanic )
 \end{code}
@@ -83,7 +81,7 @@ codeGen mod_name (local_CCs, extern_CCs) import_names gen_tycons tycon_specs stg
        mkAbstractCs [
                mkAbstractCs [mkAbstractCs (map (CCostCentreDecl True)  local_CCs),
                                   mkAbstractCs (map (CCostCentreDecl False) extern_CCs),
-                                  mkCcRegister local_CCs import_names]],
+                                  mkCcRegister local_CCs import_names],
                genStaticConBits cinfo gen_tycons tycon_specs,
                initC cinfo (cgTopBindings maybe_split stg_pgm) ]
   where