Skip to content

GitLab

Commit fb047134 authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au
Browse files

Fix bad bug in type vectorisation

parent 913c612f
Hide whitespace changes
Inline Side-by-side
compiler/vectorise/Vectorise.hs
View file @ fb047134
...@@ -438,7 +438,7 @@ vectTyCon tc ...@@ -438,7 +438,7 @@ vectTyCon tc
Nothing -> pprTrace "ccTyCon:" (ppr tc) $ return tc Nothing -> pprTrace "ccTyCon:" (ppr tc) $ return tc
vectType :: Type -> VM Type vectType :: Type -> VM Type
vectType ty | Just ty' <- coreView ty = vectType ty vectType ty | Just ty' <- coreView ty = vectType ty'
vectType (TyVarTy tv) = return $ TyVarTy tv vectType (TyVarTy tv) = return $ TyVarTy tv
vectType (AppTy ty1 ty2) = liftM2 AppTy (vectType ty1) (vectType ty2) vectType (AppTy ty1 ty2) = liftM2 AppTy (vectType ty1) (vectType ty2)
vectType (TyConApp tc tys) = liftM2 TyConApp (vectTyCon tc) (mapM vectType tys) vectType (TyConApp tc tys) = liftM2 TyConApp (vectTyCon tc) (mapM vectType tys)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment