From a0a74332126999a3fd75c2f6a697bf33fff24124 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Tue, 1 Sep 2015 10:45:15 +0200
Subject: [PATCH] Fix <7.10

---
 Language/Haskell/GhcMod/Output.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Language/Haskell/GhcMod/Output.hs b/Language/Haskell/GhcMod/Output.hs
index 2c75158..7fcf0af 100644
--- a/Language/Haskell/GhcMod/Output.hs
+++ b/Language/Haskell/GhcMod/Output.hs
@@ -66,7 +66,7 @@ toGmLines s = GmLines GmPartial s
 outputFns :: (GmOut m, MonadIO m')
           => m (GmLines String -> m' (), GmLines String -> m' ())
 outputFns =
-  outputFns' <$> gmoAsk
+  outputFns' `liftM` gmoAsk
 
 pfxFns :: Maybe (String, String) -> (GmLines String -> GmLines String, GmLines String -> GmLines String)
 pfxFns lpfx = case lpfx of