[commit: ghc] supercompiler: Fix major brainfart in msgVarBndr (d9eac57)
Max Bolingbroke <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler http://hackage.haskell.org/trac/ghc/changeset/d9eac575bfa4f245945a5af70a50a63fb43fc163 >--------------------------------------------------------------- commit d9eac575bfa4f245945a5af70a50a63fb43fc163 Author: Max Bolingbroke <[email protected]> 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