X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fstranal%2FWorkWrap.lhs;h=456f2f0358265c89cf80c69af2a0d6bea34a41e8;hb=2423c249f5ca7785d0ec89eb33e72662da7561c1;hp=2f5d38c0691aac0ed2f5c72e0a690eb8537532f1;hpb=f3c4792fad3bf46e5ee500a909287718324c45d1;p=ghc-hetmet.git

diff --git a/compiler/stranal/WorkWrap.lhs b/compiler/stranal/WorkWrap.lhs
index 2f5d38c..456f2f0 100644
--- a/compiler/stranal/WorkWrap.lhs
+++ b/compiler/stranal/WorkWrap.lhs
@@ -317,7 +317,7 @@ splitThunk transforms like this:
 Now simplifier will transform to
 
       case x-rhs of 
-	I# a ->	let x* = I# b 
+	I# a ->	let x* = I# a 
 	        in body
 
 which is what we want. Now suppose x-rhs is itself a case: