- $ do (inline, isScalar, vexpr) <- inBind var
- -- $ pprTrace "vectTopRhs" (ppr var)
- $ vectPolyExpr (isLoopBreaker $ idOccInfo var) recFs
- (freeVars expr)
+ $ do (inline, isScalar, vexpr) <-
+ inBind var $ vectPolyExpr (isLoopBreaker $ idOccInfo var) recFs (freeVars expr)