X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FTcIface.lhs;h=1b24684f92db9800b87f3a3445e1c13b8c55785e;hp=7e6406fe710c176aacedea08bea843ea0caf4a6f;hb=e04f49034968322349e0f3f608e1b5a856fd6521;hpb=6abf4f532101e8e44970486b99626f583e071167

diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs
index 7e6406f..1b24684 100644
--- a/compiler/iface/TcIface.lhs
+++ b/compiler/iface/TcIface.lhs
@@ -711,6 +711,10 @@ tcIfaceExpr (IfaceLcl name)
   = tcIfaceLclId name 	`thenM` \ id ->
     returnM (Var id)
 
+tcIfaceExpr (IfaceTick modName tickNo)
+  = tcIfaceTick modName tickNo	`thenM` \ id ->
+    returnM (Var id)
+
 tcIfaceExpr (IfaceExt gbl)
   = tcIfaceExtId gbl 	`thenM` \ id ->
     returnM (Var id)