@@ -1,3 +1,4 @@
1{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE DataKinds #-}
2{-# LANGUAGE TypeFamilies #-}
3{-# LANGUAGE TypeFamilies #-}
3{-# LANGUAGE TypeOperators #-}
4{-# LANGUAGE TypeOperators #-}
@@ -6,6 +7,9 @@
6{-# LANGUAGE ScopedTypeVariables #-}
7{-# LANGUAGE ScopedTypeVariables #-}
7module Servant.Mock ( HasMock(..) ) where
8module Servant.Mock ( HasMock(..) ) where
10+#if !MIN_VERSION_base(4,8,0)
11+import Control.Applicative ((<$>))
9import Control.Monad.IO.Class
13import Control.Monad.IO.Class
10import Data.ByteString.Lazy.Char8 (pack)
14import Data.ByteString.Lazy.Char8 (pack)
11import Data.Proxy
15import Data.Proxy