diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-10-19 20:15:37 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-10-19 20:15:37 +0000 |
| commit | 8e5442bab1ca5cd9239690af664374cac585f8b2 (patch) | |
| tree | 764c8c60bd2fe66269bbc85800b442c4c6b8d367 /compiler/vectorise | |
| parent | 6193ff066266120cd18712e0663dfae36034aa51 (diff) | |
| download | haskell-8e5442bab1ca5cd9239690af664374cac585f8b2.tar.gz | |
Define setIdUnfoldingLazily, and use it in Vectorise
Fixes a loop in the compiler, when running the dph tests
Diffstat (limited to 'compiler/vectorise')
| -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 8e048333eb..223d88b07a 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -168,7 +168,7 @@ vectTopBinder var inline expr vty <- vectType (idType var) -- Make the vectorised version of binding's name, and set the unfolding used for inlining. - var' <- liftM (`setIdUnfolding` unfolding) + var' <- liftM (`setIdUnfoldingLazily` unfolding) $ cloneId mkVectOcc var vty -- Add the mapping between the plain and vectorised name to the state. |