From aedc11f21c2c11578464a343b6a1320dcfb33d0c Mon Sep 17 00:00:00 2001
From: Schell Scivally <efsubenovex@gmail.com>
Date: Tue, 12 Nov 2013 15:56:45 -0800
Subject: [PATCH] Added conditional CPP.

---
 Language/Haskell/GhcMod/ErrMsg.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Language/Haskell/GhcMod/ErrMsg.hs b/Language/Haskell/GhcMod/ErrMsg.hs
index 5ab4907..0755749 100644
--- a/Language/Haskell/GhcMod/ErrMsg.hs
+++ b/Language/Haskell/GhcMod/ErrMsg.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE BangPatterns #-}
+{-# LANGUAGE BangPatterns, CPP #-}
 
 module Language.Haskell.GhcMod.ErrMsg (
     LogReader
@@ -55,7 +55,11 @@ errBagToStrList dflag ls = map (ppErrMsg dflag ls) . reverse . bagToList
 ppErrMsg :: DynFlags -> LineSeparator -> ErrMsg -> String
 ppErrMsg dflag ls err = ppMsg spn SevError dflag ls msg ++ ext
    where
+#if __GLASGOW_HASKELL__ >= 707
      spn = errMsgSpan err
+#else
+     spn = head (errMsgSpans err)
+#endif
      msg = errMsgShortDoc err
      ext = showMsg dflag ls (errMsgExtraInfo err)