Conditionally include Control.Applicative <$>

2015-12-22 22:03:46 +11:00 · 2015-12-22 22:03:46 +11:00 · 130fd27e01
commit 130fd27e01
parent 57fe12ce84
1 changed files with 4 additions and 0 deletions
--- 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)