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

Fix bug in generation of environments for vectorisation

parent a9192907
......@@ -455,7 +455,7 @@ mkLiftEnv lc tys vs
env = Var (dataConWrapId env_con)
`mkTyApps` env_tyargs
`mkVarApps` (lc : vs)
`mkApps` (Var lc : args)
bind env body = let scrut = unwrapFamInstScrut env_tc env_tyargs env
in
......@@ -466,6 +466,9 @@ mkLiftEnv lc tys vs
where
vty = mkCoreTupTy tys
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