Use gets instead of fmapping the result of get

This commit is contained in:
Joseph C. Sible 2020-02-01 22:50:20 -05:00
parent d7278b95f2
commit f25b8bd03a
2 changed files with 2 additions and 2 deletions

View file

@ -325,7 +325,7 @@ parseProblem level code msg = do
parseProblemAt pos level code msg
setCurrentContexts c = Ms.modify (\state -> state { contextStack = c })
getCurrentContexts = contextStack <$> Ms.get
getCurrentContexts = Ms.gets contextStack
popContext = do
v <- getCurrentContexts