From 10042c6b0cea3e790bd7432c2e342054dc7c4ac4 Mon Sep 17 00:00:00 2001
From: Alejandro Serrano <trupill@gmail.com>
Date: Fri, 15 Aug 2014 11:00:48 +0200
Subject: [PATCH] Fix for GHC 7.4

---
 Language/Haskell/GhcMod/Logger.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Language/Haskell/GhcMod/Logger.hs b/Language/Haskell/GhcMod/Logger.hs
index a0e0e0b..beccd1b 100644
--- a/Language/Haskell/GhcMod/Logger.hs
+++ b/Language/Haskell/GhcMod/Logger.hs
@@ -158,7 +158,11 @@ errAndWarnBagToStr :: IOish m => (String -> a) -> Bag ErrMsg -> Bag WarnMsg -> G
 errAndWarnBagToStr f err warn = do
     dflags <- G.getSessionDynFlags
     -- style <- toGhcModT getStyle
+#if __GLASGOW_HASKELL__ >= 706
     let style = mkErrStyle dflags neverQualify
+#else
+    let style = mkErrStyle neverQualify
+#endif
     ret <- convert' $ nub (errBagToStrList dflags style err ++ warnBagToStrList dflags style warn)
     return $ f ret