fix warning
authorSimon Marlow <marlowsd@gmail.com>
Mon, 21 Nov 2011 16:01:34 +0000 (16:01 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 22 Nov 2011 09:26:14 +0000 (09:26 +0000)
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