X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcHsSyn.lhs;fp=compiler%2Ftypecheck%2FTcHsSyn.lhs;h=3b4afaea484693dcf7bbb2ebd186c3200a5a13b0;hp=12b50acff09067c846c23444ae734d3058815c06;hb=3bb66cc52ced70cd7081fb8a2e32a1005528d5a0;hpb=1bf40a4b38180b8b1c1bdaf4919bc327d5b27abe

diff --git a/compiler/typecheck/TcHsSyn.lhs b/compiler/typecheck/TcHsSyn.lhs
index 12b50ac..3b4afae 100644
--- a/compiler/typecheck/TcHsSyn.lhs
+++ b/compiler/typecheck/TcHsSyn.lhs
@@ -1027,6 +1027,10 @@ zonkVect env (HsVect v (Just e))
        ; e' <- zonkLExpr env e
        ; return $ HsVect v' (Just e')
        }
+zonkVect env (HsNoVect v)
+  = do { v' <- wrapLocM (zonkIdBndr env) v
+       ; return $ HsNoVect v'
+       }
 \end{code}
 
 %************************************************************************