Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler
http://hackage.haskell.org/trac/ghc/changeset/d9eac575bfa4f245945a5af70a50a63fb43fc163 >--------------------------------------------------------------- commit d9eac575bfa4f245945a5af70a50a63fb43fc163 Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Tue Apr 24 14:42:19 2012 +0100 Fix major brainfart in msgVarBndr >--------------------------------------------------------------- compiler/supercompile/Supercompile/Drive/MSG.hs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/MSG.hs b/compiler/supercompile/Supercompile/Drive/MSG.hs index b963423..ce0b184 100644 --- a/compiler/supercompile/Supercompile/Drive/MSG.hs +++ b/compiler/supercompile/Supercompile/Drive/MSG.hs @@ -588,7 +588,7 @@ msgAltCon _ _ _ _ = fail "msgAltCon" msgVarBndr :: (Var -> b -> c) -> RnEnv2 -> Var -> Var -> (RnEnv2 -> MSG b) -> MSG c msgVarBndr f rn2 v_l v_r | isId v_l, isId v_r = msgIdCoVarBndr f rn2 v_l v_r | isTyVar v_l, isTyVar v_r = msgTyVarBndr f rn2 v_l v_r - | otherwise = fail "msgVarBndr" + | otherwise = \_ -> fail "msgVarBndr" msgTyVarBndr :: (TyVar -> b -> c) -> RnEnv2 -> TyVar -> TyVar -> (RnEnv2 -> MSG b) -> MSG c msgTyVarBndr f rn2 a_l a_r k = do _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
