Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler
http://hackage.haskell.org/trac/ghc/changeset/b24884b43964be6de9cebb8f849afd718e0b36d6 >--------------------------------------------------------------- commit b24884b43964be6de9cebb8f849afd718e0b36d6 Author: Max Bolingbroke <batterseapo...@hotmail.com> 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 _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
