From 130fd27e0160fc61da9b1fbe6b5810f2b00e9d24 Mon Sep 17 00:00:00 2001
From: Luke Clifton <Luke.Clifton@cba.com.au>
Date: Tue, 22 Dec 2015 22:03:46 +1100
Subject: [PATCH] Conditionally include Control.Applicative <$>

---
 servant-cassava/src/Servant/CSV/Cassava.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/servant-cassava/src/Servant/CSV/Cassava.hs b/servant-cassava/src/Servant/CSV/Cassava.hs
index 3c00a662..625007e7 100644
--- a/servant-cassava/src/Servant/CSV/Cassava.hs
+++ b/servant-cassava/src/Servant/CSV/Cassava.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP                   #-}
 {-# LANGUAGE DeriveDataTypeable    #-}
 {-# LANGUAGE DeriveGeneric         #-}
 {-# LANGUAGE FlexibleInstances     #-}
@@ -16,6 +17,9 @@
 -- >>> type EgDefault = Get '[CSV] [(Int, String)]
 module Servant.CSV.Cassava where
 
+#if !MIN_VERSION_base(4,8,0)
+import           Control.Applicative        ((<$>))
+#endif
 import           Data.Csv
 import           Data.Proxy         (Proxy (..))
 import           Data.Typeable      (Typeable)