Use execState instead of snd . runState
This commit is contained in:
parent
34939ca0b7
commit
81e84c2939
|
@ -270,7 +270,7 @@ executableFromShebang = shellFor
|
||||||
-- This is used to populate parentMap in Parameters
|
-- This is used to populate parentMap in Parameters
|
||||||
getParentTree :: Token -> Map.Map Id Token
|
getParentTree :: Token -> Map.Map Id Token
|
||||||
getParentTree t =
|
getParentTree t =
|
||||||
snd . snd $ runState (doStackAnalysis pre post t) ([], Map.empty)
|
snd $ execState (doStackAnalysis pre post t) ([], Map.empty)
|
||||||
where
|
where
|
||||||
pre t = modify (first ((:) t))
|
pre t = modify (first ((:) t))
|
||||||
post t = do
|
post t = do
|
||||||
|
|
Loading…
Reference in New Issue