X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreSubst.lhs;h=0c954a89277794fb348a3075ebaead1f2e6f651a;hb=c1c2c25355bc462e521b2c5fb41ac79307da22ff;hp=acf17e3c124d29a4562df5ce734de2754dabed7f;hpb=a1fae73a83665d7b9134509e80d34ff69a009cc7;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreSubst.lhs b/compiler/coreSyn/CoreSubst.lhs
index acf17e3..0c954a8 100644
--- a/compiler/coreSyn/CoreSubst.lhs
+++ b/compiler/coreSyn/CoreSubst.lhs
@@ -714,8 +714,9 @@ substVects subst = map (substVect subst)
 
 ------------------
 substVect :: Subst -> CoreVect -> CoreVect
-substVect _subst (Vect v Nothing)    = Vect v Nothing
-substVect subst  (Vect v (Just rhs)) = Vect v (Just (simpleOptExprWith subst rhs))
+substVect _subst (Vect   v Nothing)    = Vect   v Nothing
+substVect subst  (Vect   v (Just rhs)) = Vect   v (Just (simpleOptExprWith subst rhs))
+substVect _subst (NoVect v)            = NoVect v
 
 ------------------
 substVarSet :: Subst -> VarSet -> VarSet