diff options
| -rw-r--r-- | compiler/vectorise/Vectorise.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/vectorise/Vectorise.hs b/compiler/vectorise/Vectorise.hs index e6c4b1e0cf..c721414e37 100644 --- a/compiler/vectorise/Vectorise.hs +++ b/compiler/vectorise/Vectorise.hs @@ -156,6 +156,7 @@ vectTopBind b@(NonRec var expr) -- 'VECTORISE' pragma => just use the provided vectorised rhs do { traceVt "VECTORISE" $ ppr var + ; addGlobalParallelVar var ; return $ Just (False, inlineMe, expr') } Nothing -> |