Merge branch 'master' of http://darcs.haskell.org/ghc

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

diff --git a/compiler/deSugar/Desugar.lhs b/compiler/deSugar/Desugar.lhs
index 98fd1e6..af2db36 100644 (file)
--- a/compiler/deSugar/Desugar.lhs
+++ b/compiler/deSugar/Desugar.lhs
@@ -399,6 +399,6 @@ dsVect (L loc (HsVect (L _ v) rhs))
     do { rhs' <- fmapMaybeM dsLExpr rhs
        ; return $ Vect v rhs'
           }
-dsVect (L loc (HsNoVect (L _ v)))
+dsVect (L _loc (HsNoVect (L _ v)))
   = return $ NoVect v
 \end{code}