Use execState instead of reimplementing it
This commit is contained in:
parent
b3c04ce3d0
commit
14ee462ccd
|
@ -409,8 +409,7 @@ tokenIsJustCommandOutput t = case t of
|
||||||
|
|
||||||
-- TODO: Replace this with a proper Control Flow Graph
|
-- TODO: Replace this with a proper Control Flow Graph
|
||||||
getVariableFlow params t =
|
getVariableFlow params t =
|
||||||
let (_, stack) = runState (doStackAnalysis startScope endScope t) []
|
reverse $ execState (doStackAnalysis startScope endScope t) []
|
||||||
in reverse stack
|
|
||||||
where
|
where
|
||||||
startScope t =
|
startScope t =
|
||||||
let scopeType = leadType params t
|
let scopeType = leadType params t
|
||||||
|
|
Loading…
Reference in New Issue