From 308bd1b83e07d2418ee512ee1fcaeda609907669 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 29 Apr 2017 03:41:05 +0200
Subject: CPP for GHC 8.0

---
 src/Plugins/Monitors/CoreCommon.hs | 6 +++++-
 xmobar.cabal                       | 3 +++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/src/Plugins/Monitors/CoreCommon.hs b/src/Plugins/Monitors/CoreCommon.hs
index 4ded88a..5b6d89a 100644
--- a/src/Plugins/Monitors/CoreCommon.hs
+++ b/src/Plugins/Monitors/CoreCommon.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE PatternGuards #-}
+{-# LANGUAGE CPP, PatternGuards #-}
 
 -----------------------------------------------------------------------------
 -- |
@@ -16,6 +16,10 @@
 
 module Plugins.Monitors.CoreCommon where
 
+#ifndef GHC8
+import Control.Applicative
+#endif
+
 import Data.Char hiding (Space)
 import Data.Function
 import Data.List
diff --git a/xmobar.cabal b/xmobar.cabal
index af158f6..2bf79b9 100644
--- a/xmobar.cabal
+++ b/xmobar.cabal
@@ -148,6 +148,9 @@ executable xmobar
     if impl (ghc < 7)
        cpp-options: -DGHC6
 
+    if impl (ghc > 7)
+       cpp-options: -DGHC8
+
     if flag(with_xft) || flag(all_extensions)
        build-depends: utf8-string >= 0.3 && < 1.1, X11-xft >= 0.2 && < 0.4
        other-modules: MinXft
-- 
cgit v1.2.3