Make GhcModT's MonadState instance pass through

..to the underlying monad
2014-08-12 18:09:31 +02:00
parent c0652c0321
commit e345c92edb
2 changed files with 20 additions and 11 deletions
--- a/Language/Haskell/GhcMod/Target.hs
+++ b/Language/Haskell/GhcMod/Target.hs
@@ -15,7 +15,7 @@ setTargetFiles :: IOish m => [FilePath] -> GhcModT m ()
 setTargetFiles files = do
    targets <- forM files $ \file -> G.guessTarget file Nothing
    G.setTargets targets
-    mode <- gmCompilerMode <$> get
+    mode <- getCompilerMode
    if mode == Intelligent then
        loadTargets Intelligent
      else do