Breakpoints: get the names of the free variables right

[ghc-hetmet.git] / compiler / deSugar / DsArrows.lhs

diff --git a/compiler/deSugar/DsArrows.lhs b/compiler/deSugar/DsArrows.lhs
index e5b2b55..fc2432d 100644 (file)
--- a/compiler/deSugar/DsArrows.lhs
+++ b/compiler/deSugar/DsArrows.lhs
@@ -587,9 +587,9 @@ dsCmd _ids local_vars env_ids _stack _res_ty (HsArrForm op _ args)
              unionVarSets fv_sets)
 
 
-dsCmd ids local_vars env_ids stack res_ty (HsTick ix expr)
+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 expr1                             `thenDs` \ expr2 ->
+    mkTickBox ix vars expr1                                `thenDs` \ expr2 ->
     return (expr2,id_set)
 
 --     A | ys |- c :: [ts] t   (ys <= xs)