diff options
Diffstat (limited to 'compiler/coreSyn/CoreSubst.lhs')
| -rw-r--r-- | compiler/coreSyn/CoreSubst.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/coreSyn/CoreSubst.lhs b/compiler/coreSyn/CoreSubst.lhs index ca0fbd5a52..effc5f8459 100644 --- a/compiler/coreSyn/CoreSubst.lhs +++ b/compiler/coreSyn/CoreSubst.lhs @@ -735,7 +735,8 @@ 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 (NoVect v) = NoVect v +substVect _subst vd@(NoVect _) = vd +substVect _subst vd@(VectType _ _) = vd ------------------ substVarSet :: Subst -> VarSet -> VarSet |