Reset DynFlags properly in withCmdFlags teardown

2014-08-13 18:04:37 +02:00 · 2014-08-13 18:04:37 +02:00 · 4fcef0cb2b
commit 4fcef0cb2b
parent 6dd8b34e44
1 changed files with 2 additions and 2 deletions
--- a/Language/Haskell/GhcMod/DynFlags.hs
+++ b/Language/Haskell/GhcMod/DynFlags.hs
@ -88,8 +88,8 @@ withCmdFlags :: GhcMonad m => [GHCOption] -> m a -> m a
 withCmdFlags flags body = G.gbracket setup teardown (\_ -> body)
  where
    setup = do
-        dflags <- G.getSessionDynFlags >>= addCmdOpts flags
-        void $ G.setSessionDynFlags dflags
+        dflags <- G.getSessionDynFlags
+        void $ G.setSessionDynFlags =<< addCmdOpts flags dflags
        return dflags
    teardown = void . G.setSessionDynFlags