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

Consistent spacing in servant-client

Browse source
This commit is contained in:
aaron levin 2015-12-23 00:00:09 +01:00
parent 4ecbf2f1b8
commit 5bf9e62244
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
servant-client/src/Servant/Client/Authentication.hs
View file

@ -18,14 +18,13 @@ import Servant.Common.Req (addHeader, Req)
-- object. For example, we may add special headers to the 'Request'.
class AuthenticateRequest a where
authReq :: a -> Req -> Req
instance AuthenticateRequest (BasicAuth realm) where
authReq (BasicAuth user pass) req =
let authText = decodeUtf8 ("Basic " <> encode (user <> ":" <> pass)) in
addHeader "Authorization" authText req
let authText = decodeUtf8 ("Basic " <> encode (user <> ":" <> pass))
in addHeader "Authorization" authText req
instance AuthenticateRequest JWTAuth where
authReq (JWTAuth token) req =
let authText = ("Bearer " <> token)
in addHeader "Authorization" authText req
authReq (JWTAuth token) req =
let authText = ("Bearer " <> token)
in addHeader "Authorization" authText req