Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/40a3361f5e8311505982a599fa74f44fc6f7bcaf >--------------------------------------------------------------- commit 40a3361f5e8311505982a599fa74f44fc6f7bcaf Author: Simon Peyton Jones <[email protected]> Date: Tue Nov 15 17:52:22 2011 +0000 Replace unused variable with "_" >--------------------------------------------------------------- compiler/typecheck/TcGenDeriv.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/typecheck/TcGenDeriv.lhs b/compiler/typecheck/TcGenDeriv.lhs index 04c53a8..1cdb72c 100644 --- a/compiler/typecheck/TcGenDeriv.lhs +++ b/compiler/typecheck/TcGenDeriv.lhs @@ -187,7 +187,7 @@ gen_Eq_binds loc tycon | no_nullary_cons -- All constructors have arguments = case non_nullary_cons of [] -> [] -- No constructors; no fall-though case - [c] -> [] -- One constructor; no fall-though case + [_] -> [] -- One constructor; no fall-though case _ -> -- Two or more constructors; add fall-through of -- (==) _ _ = False [([nlWildPat, nlWildPat], false_Expr)] _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
