fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore(load): take steps to prevent multiple auth headers

Browse Source
This commit is contained in:
Gregor Kleen 2020-05-29 09:56:04 +02:00
parent b0c55b9ae9
commit 3be16c48c9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
load/Load.hs
View File

@ -325,7 +325,7 @@ newLoadSession = do
let withToken = case loadToken of let withToken = case loadToken of
Nothing -> id Nothing -> id
Just (Jwt bs) -> (:) (hAuthorization, "Bearer " <> bs) Just (Jwt bs) -> (:) (hAuthorization, "Bearer " <> bs) . filter ((/= hAuthorization) . fst)
liftIO . Session.newSessionControl (Just mempty) $ tlsManagerSettings liftIO . Session.newSessionControl (Just mempty) $ tlsManagerSettings