@@ -1,3 +1,4 @@
1{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveDataTypeable #-}
2{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE DeriveGeneric #-}
3{-# LANGUAGE FlexibleInstances #-}
4{-# LANGUAGE FlexibleInstances #-}
@@ -16,6 +17,9 @@
16-- >>> type EgDefault = Get '[CSV] [(Int, String)]
17-- >>> type EgDefault = Get '[CSV] [(Int, String)]
17module Servant.CSV.Cassava where
18module Servant.CSV.Cassava where
20+#if !MIN_VERSION_base(4,8,0)
21+import Control.Applicative ((<$>))
19import Data.Csv
23import Data.Csv
20import Data.Proxy (Proxy (..))
24import Data.Proxy (Proxy (..))
21import Data.Typeable (Typeable)
25import Data.Typeable (Typeable)