[project @ 1997-03-14 07:52:06 by simonpj]

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

diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs
index a786145..4f2e585 100644 (file)
--- a/ghc/compiler/codeGen/CodeGen.lhs
+++ b/ghc/compiler/codeGen/CodeGen.lhs
@@ -57,11 +57,8 @@ codeGen mod_name (local_CCs, extern_CCs) import_names gen_tycons tycon_specs stg
   = let
        doing_profiling   = opt_SccProfilingOn
        compiling_prelude = opt_CompilingGhcInternals
-       maybe_split       = if opt_EnsureSplittableC
-                           then CSplitMarker
-                           else AbsCNop
-
-       cinfo = MkCompInfo mod_name
+       maybe_split       = if opt_EnsureSplittableC then CSplitMarker else AbsCNop
+       cinfo             = MkCompInfo mod_name
     in
     if not doing_profiling then
        mkAbstractCs [