Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/d3bd75e011a01bad159f2f96fc59529d3888bfdd >--------------------------------------------------------------- commit d3bd75e011a01bad159f2f96fc59529d3888bfdd Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Feb 15 22:57:49 2012 +0000 Remove unused var warnings >--------------------------------------------------------------- compiler/supercompile/Supercompile/Drive/Match.hs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/supercompile/Supercompile/Drive/Match.hs b/compiler/supercompile/Supercompile/Drive/Match.hs index a4faa44..f2bbc0e 100644 --- a/compiler/supercompile/Supercompile/Drive/Match.hs +++ b/compiler/supercompile/Supercompile/Drive/Match.hs @@ -122,8 +122,8 @@ eqAnnedTerm e1 e2 = case runMatch (matchTerm (matchRnEnv2 annedTermFreeVars e1 Just lrs -> all (\lr -> case lr of VarLR x_l x_r | x_l == x_r -> True; _ -> False) lrs instance Outputable MatchLR where - pprPrec _ (VarL x e') = ppr x <+> text "<->" <+> text "..." {- ppr e' -} - pprPrec _ (VarR e' x) = text "..." {- ppr e' -} <+> text "<->" <+> ppr x + pprPrec _ (VarL x _e') = ppr x <+> text "<->" <+> text "..." {- ppr e' -} + pprPrec _ (VarR _e' x) = text "..." {- ppr e' -} <+> text "<->" <+> ppr x pprPrec _ (VarLR x1 x2) = ppr x1 <+> text "<->" <+> ppr x2 match :: State -- ^ Tieback semantics _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
