fix build on 7.8

2015-07-22 22:06:46 +02:00 · 2015-07-22 22:06:46 +02:00 · 248033ad81
commit 248033ad81
parent 349cc1089b
1 changed files with 4 additions and 0 deletions
--- a/servant-mock/src/Servant/Mock.hs
+++ b/servant-mock/src/Servant/Mock.hs
@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE TypeFamilies #-}
 {-# LANGUAGE TypeOperators #-}
@ -6,6 +7,9 @@
 {-# LANGUAGE ScopedTypeVariables #-}
 module Servant.Mock ( HasMock(..) ) where

+#if !MIN_VERSION_base(4,8,0)
+import           Control.Applicative         ((<$>))
+#endif
 import Control.Monad.IO.Class
 import Data.ByteString.Lazy.Char8 (pack)
 import Data.Proxy