Fix bug in lifted environment inspection code

3aff1617 · rl@cse.unsw.edu.au · 9d899efe · 3aff1617
Commit 3aff1617 authored Jul 16, 2007 by rl@cse.unsw.edu.au
--- a/compiler/vectorise/Vectorise.hs
+++ b/compiler/vectorise/Vectorise.hs
@@ -404,7 +404,7 @@ mkClosureMonoFns info arg body
          return . Let (NonRec lbndr lenv)
                 $ Case (mkApps (Var lengthPA) [Type vty, (Var lbndr)])
                        lc_bndr
-                        intPrimTy
+                        (exprType lbody)
                        [(DEFAULT, [], lbody)]

    bind_lenv lenv lbody lc_bndr lbndrs