hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Reset DynFlags properly in withCmdFlags teardown

Browse Source
This commit is contained in:
Daniel Gröber 2014-08-13 18:04:37 +02:00
parent 6dd8b34e44
commit 4fcef0cb2b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Language/Haskell/GhcMod/DynFlags.hs
View File

@ -88,8 +88,8 @@ withCmdFlags :: GhcMonad m => [GHCOption] -> m a -> m a
withCmdFlags flags body = G.gbracket setup teardown (\_ -> body) withCmdFlags flags body = G.gbracket setup teardown (\_ -> body)
where where
setup = do setup = do
dflags <- G.getSessionDynFlags >>= addCmdOpts flags dflags <- G.getSessionDynFlags
void $ G.setSessionDynFlags dflags void $ G.setSessionDynFlags =<< addCmdOpts flags dflags
return dflags return dflags
teardown = void . G.setSessionDynFlags teardown = void . G.setSessionDynFlags