Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/a5762b71d1aaf9037d14fc706bb04976a231bf22 >--------------------------------------------------------------- commit a5762b71d1aaf9037d14fc706bb04976a231bf22 Author: Simon Marlow <[email protected]> Date: Mon Nov 21 16:01:34 2011 +0000 fix warning >--------------------------------------------------------------- compiler/coreSyn/CoreUtils.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index 7e25916..e11acbf 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -223,7 +223,7 @@ mkTick t (Var x) mkTick t (Cast e co) = Cast (mkTick t e) co -- Move tick inside cast -mkTick t (Coercion co) = Coercion co +mkTick _ (Coercion co) = Coercion co mkTick t (Lit l) | not (tickishCounts t) = Lit l _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
