using <$>

2014-08-14 11:14:46 +09:00 · 2014-08-14 11:14:46 +09:00 · d5733874e0
commit d5733874e0
parent 2875275fc0
1 changed files with 1 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Monad.hs
+++ b/Language/Haskell/GhcMod/Monad.hs
@ -252,7 +252,7 @@ runGhcModT :: IOish m
           -> m (Either GhcModError a, GhcModLog)
 runGhcModT opt action = do
    env <- liftBase $ newGhcModEnv opt =<< getCurrentDirectory
-    first (fmap fst) <$> (runGhcModT' env defaultState $ do
+    first (fst <$>) <$> (runGhcModT' env defaultState $ do
        dflags <- getSessionDynFlags
        defaultCleanupHandler dflags $ do
            initializeFlagsWithCradle opt (gmCradle env)