diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-07-16 07:23:38 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-07-16 07:23:38 +0000 |
| commit | 3aff16171d3bd0c27826c8947edf8fff7d07fef2 (patch) | |
| tree | 665893271e43cb1851456b169135a4eb430ca5cc | |
| parent | 9d899efe741906ad957cf3ad84122f62c73a9de6 (diff) | |
| download | haskell-3aff16171d3bd0c27826c8947edf8fff7d07fef2.tar.gz | |
Fix bug in lifted environment inspection code
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index a42298fb16..d5b78f14da 100644 --- 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 |