From 5bf9e6224400accd3917e952ce8692c023487cc9 Mon Sep 17 00:00:00 2001 From: aaron levin Date: Wed, 23 Dec 2015 00:00:09 +0100 Subject: [PATCH] Consistent spacing in servant-client --- servant-client/src/Servant/Client/Authentication.hs | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/servant-client/src/Servant/Client/Authentication.hs b/servant-client/src/Servant/Client/Authentication.hs index ece2654c..13e9ad90 100644 --- a/servant-client/src/Servant/Client/Authentication.hs +++ b/servant-client/src/Servant/Client/Authentication.hs @@ -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