X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDsArrows.lhs;h=fc2432d6fc459f007a8150d40c01737bf473ed73;hb=46b28f7bfdd535e9fe5217a1151bedfb2cc15472;hp=4d9295d6aef56d7f8844aa683fa31ae3533ecc07;hpb=49c98d143c382a1341e1046f5ca00819a25691ba;p=ghc-hetmet.git

diff --git a/compiler/deSugar/DsArrows.lhs b/compiler/deSugar/DsArrows.lhs
index 4d9295d..fc2432d 100644
--- a/compiler/deSugar/DsArrows.lhs
+++ b/compiler/deSugar/DsArrows.lhs
@@ -586,6 +586,12 @@ dsCmd _ids local_vars env_ids _stack _res_ty (HsArrForm op _ args)
     returnDs (mkApps (App core_op (Type env_ty)) core_args,
 	      unionVarSets fv_sets)
 
+
+dsCmd ids local_vars env_ids stack res_ty (HsTick ix vars expr)
+  = dsLCmd ids local_vars env_ids stack res_ty expr `thenDs` \ (expr1,id_set) ->
+    mkTickBox ix vars expr1                    	    `thenDs` \ expr2 ->
+    return (expr2,id_set)
+
 --	A | ys |- c :: [ts] t	(ys <= xs)
 --	---------------------
 --	A | xs |- c :: [ts] t	---> arr_ts (\ (xs) -> (ys)) >>> c