Comments only

[ghc-hetmet.git] / compiler / stranal / WorkWrap.lhs

diff --git a/compiler/stranal/WorkWrap.lhs b/compiler/stranal/WorkWrap.lhs
index 2f5d38c..456f2f0 100644 (file)
--- 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: