Print infix function definitions correctly in HsSyn

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

diff --git a/compiler/deSugar/DsArrows.lhs b/compiler/deSugar/DsArrows.lhs
index e5b2b55..c44ed59 100644 (file)
--- a/compiler/deSugar/DsArrows.lhs
+++ b/compiler/deSugar/DsArrows.lhs
@@ -42,6 +42,8 @@ import Util
 import HsUtils
 import VarSet
 import SrcLoc
+
+import Data.List
 \end{code}
 
 \begin{code}
@@ -587,9 +589,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)