From 3be16c48c962f804f53957fd482d11e34f2e4415 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Fri, 29 May 2020 09:56:04 +0200
Subject: [PATCH] chore(load): take steps to prevent multiple auth headers

---
 load/Load.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/load/Load.hs b/load/Load.hs
index c10104533..147e5a2a6 100644
--- a/load/Load.hs
+++ b/load/Load.hs
@@ -325,7 +325,7 @@ newLoadSession = do
 
   let withToken = case loadToken of
         Nothing -> id
-        Just (Jwt bs) -> (:) (hAuthorization, "Bearer " <> bs)
+        Just (Jwt bs) -> (:) (hAuthorization, "Bearer " <> bs) . filter ((/= hAuthorization) . fst)
       
 
   liftIO . Session.newSessionControl (Just mempty) $ tlsManagerSettings