From 248033ad817407977b85d2b4f6c0220b3646481c Mon Sep 17 00:00:00 2001
From: Alp Mestanogullari <alpmestan@gmail.com>
Date: Wed, 22 Jul 2015 22:06:46 +0200
Subject: [PATCH] fix build on 7.8

---
 servant-mock/src/Servant/Mock.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/servant-mock/src/Servant/Mock.hs b/servant-mock/src/Servant/Mock.hs
index 9971820b..5fbd00fc 100644
--- 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