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)