From 57db768ed092b36f8d5724da6b85bbf1b7ce4ec7 Mon Sep 17 00:00:00 2001
From: Alejandro Serrano <trupill@gmail.com>
Date: Fri, 15 Aug 2014 10:46:52 +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 a58ecc0..a0e0e0b 100644
--- a/Language/Haskell/GhcMod/Logger.hs
+++ b/Language/Haskell/GhcMod/Logger.hs
@@ -74,7 +74,11 @@ appendLogBagRef :: DynFlags -> LogBagRef -> DynFlags -> Severity -> SrcSpan -> P
 appendLogBagRef df (LogBagRef ref) _ sev src style msg = modifyIORef ref update
   where
     qstyle = (qualName style, qualModule style)
+#if __GLASGOW_HASKELL__ >= 706
     warnMsg = mkWarnMsg df src qstyle msg
+#else
+    warnMsg = mkWarnMsg src qstyle msg
+#endif
     warnBag = consBag warnMsg emptyBag
     update lg@(LogBag b) = let (b1,b2) = mergeErrors df style b warnBag
                             in LogBag $ b1 `unionBags` b2