Use execState instead of snd . runState

This commit is contained in:
Joseph C. Sible 2020-12-28 18:03:14 -05:00
parent 34939ca0b7
commit 81e84c2939
1 changed files with 1 additions and 1 deletions

View File

@ -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