Update TypeEnv before code generation.

This commit is contained in:
Andor Penzes 2019-10-19 20:41:22 +02:00
parent b44ca1d8d3
commit ed7bacf715

View File

@ -709,6 +709,7 @@ callCommand cmd = do
saveLLVM :: Path -> PipelineM ()
saveLLVM path = do
e <- use psExp
pipelineStep HPTPass
Just typeEnv <- use psTypeEnv
fname <- relPath path
let code = CGLLVM.codeGen typeEnv e