Commit c30cf0ba authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au
Browse files

Vectorise top-level bindings of a module

parent 40191524
......@@ -53,8 +53,12 @@ vectorise hsc_env guts
dflags = hsc_dflags hsc_env
vectModule :: ModGuts -> VM ModGuts
vectModule guts = return guts
vectModule guts
= do
binds' <- mapM vectTopBind (mg_binds guts)
return $ guts { mg_binds = binds' }
vectTopBind :: CoreBind -> VM CoreBind
vectTopBind b@(NonRec var expr)
= do
var' <- vectTopBinder var
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment