X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FstgSyn%2FCoreToStg.lhs;fp=ghc%2Fcompiler%2FstgSyn%2FCoreToStg.lhs;h=9ae0d2741bbd863643f285e59fb42b9aea43f32b;hb=ded6a36fa8bc0d1a8ced7909f9ed1c47533b352b;hp=781d6ed8d6f561dc330571d549146ab27bfa644a;hpb=2ba65cebbeade2f35d60fd3b58a7b5650bcb3b8e;p=ghc-hetmet.git

diff --git a/ghc/compiler/stgSyn/CoreToStg.lhs b/ghc/compiler/stgSyn/CoreToStg.lhs
index 781d6ed..9ae0d27 100644
--- a/ghc/compiler/stgSyn/CoreToStg.lhs
+++ b/ghc/compiler/stgSyn/CoreToStg.lhs
@@ -175,7 +175,7 @@ coreTopBindToStg
 coreTopBindToStg hmods env body_fvs (NonRec id rhs)
   = let 
 	env' 	  = extendVarEnv env id how_bound
-	how_bound = LetBound TopLet (manifestArity rhs)
+	how_bound = LetBound TopLet $! manifestArity rhs
 
         (stg_rhs, fvs') = 
 	    initLne env (
@@ -194,7 +194,7 @@ coreTopBindToStg hmods env body_fvs (Rec pairs)
   = let 
 	(binders, rhss) = unzip pairs
 
-	extra_env' = [ (b, LetBound TopLet (manifestArity rhs))
+	extra_env' = [ (b, LetBound TopLet $! manifestArity rhs)
 		     | (b, rhs) <- pairs ]
 	env' = extendVarEnvList env extra_env'