fix warning
[ghc.git] / compiler / coreSyn / CoreUtils.lhs
index 7e25916..e11acbf 100644 (file)
@@ -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