From 1a042772f53770eff370df7f28d8828f621859b8 Mon Sep 17 00:00:00 2001 From: aaron levin Date: Fri, 25 Dec 2015 17:09:42 +0100 Subject: [PATCH] build servant-server on GHC 7.8.4 --- .../src/Servant/Server/Internal/Authentication.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/servant-server/src/Servant/Server/Internal/Authentication.hs b/servant-server/src/Servant/Server/Internal/Authentication.hs index 9f15ba7a..f82f2462 100644 --- a/servant-server/src/Servant/Server/Internal/Authentication.hs +++ b/servant-server/src/Servant/Server/Internal/Authentication.hs @@ -16,14 +16,13 @@ module Servant.Server.Internal.Authentication , SimpleAuthProtected ) where +#if !MIN_VERSION_base(4,8,0) +import Control.Applicative ((<$>)) +#endif import Control.Monad (guard) import qualified Data.ByteString as B import Data.ByteString.Base64 (decodeLenient) -#if !MIN_VERSION_base(4,8,0) -import Data.Monoid ((<>), mempty) -#else import Data.Monoid ((<>)) -#endif import Data.Proxy (Proxy (Proxy)) import Data.String (fromString) import Data.Word8 (isSpace, toLower, _colon)