[commit: ghc] supercompiler: Missing lazy pattern match in eta (b24884b)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : supercompiler

http://hackage.haskell.org/trac/ghc/changeset/b24884b43964be6de9cebb8f849afd718e0b36d6

>---------------------------------------------------------------

commit b24884b43964be6de9cebb8f849afd718e0b36d6
Author: Max Bolingbroke <[email protected]>
Date:   Wed Feb 15 14:20:14 2012 +0000

    Missing lazy pattern match in eta

>---------------------------------------------------------------

 .../supercompile/Supercompile/Drive/Process.hs     |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/compiler/supercompile/Supercompile/Drive/Process.hs b/compiler/supercompile/Supercompile/Drive/Process.hs
index 6ce2592..e14811f 100644
--- a/compiler/supercompile/Supercompile/Drive/Process.hs
+++ b/compiler/supercompile/Supercompile/Drive/Process.hs
@@ -329,7 +329,7 @@ eta heap@(Heap h ids) accessor_e0 in_e = (heap, accessor_e0, in_e) : case termTo
   Just anned_a | (a_cast, (rn, v)) <- extract anned_a
                , let accessor_e1 = case a_cast of Uncast      -> accessor_e0
                                                   CastBy co _ -> accessor_e0 `cast` mkSymCo ids co
-                     mb_res@(Just (_, x, _)) = case v of
+                     mb_res@(~(Just (_, x, _))) = case v of
                         Lambda   x e_body -> Just (accessor_e1 `app`   x',           x, e_body)
                         TyLambda a e_body -> Just (accessor_e1 `tyApp` mkTyVarTy x', a, e_body)
                         _                 -> Nothing