eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

build servant-server on GHC 7.8.4

Browse source
This commit is contained in:
aaron levin 2015-12-25 17:09:42 +01:00
parent a154a2d1ec
commit 1a042772f5
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
servant-server/src/Servant/Server/Internal/Authentication.hs
View file

@ -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)