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

Fix vectorisation bug

parent 6029a9e1
......@@ -451,6 +451,11 @@ mkLiftEnv lc [ty] [v]
mkLiftEnv lc tys vs
= do
(env_tc, env_tyargs) <- parrayReprTyCon vty
bndrs <- if null vs then do
v <- newDummyVar unitTy
return [v]
else return vs
let [env_con] = tyConDataCons env_tc
env = Var (dataConWrapId env_con)
......@@ -469,6 +474,3 @@ mkLiftEnv lc tys vs
args | null vs = [Var unitDataConId]
| otherwise = map Var vs
bndrs | null vs = [mkWildId unitTy]
| otherwise = vs
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