From cd2715706e5ea4f7ad88190ad3d83425f8e8c5ea Mon Sep 17 00:00:00 2001 From: Tirumarai Selvan A Date: Fri, 16 Aug 2019 16:51:34 +0530 Subject: [PATCH] get all Set-Cookie headers --- server/src-lib/Hasura/GraphQL/Execute.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/server/src-lib/Hasura/GraphQL/Execute.hs b/server/src-lib/Hasura/GraphQL/Execute.hs index c35bacefc99bd..331648b60c7a8 100644 --- a/server/src-lib/Hasura/GraphQL/Execute.hs +++ b/server/src-lib/Hasura/GraphQL/Execute.hs @@ -378,8 +378,8 @@ execRemoteGQ reqId userInfo reqHdrs q rsi opDef = do liftIO $ logGraphqlQuery logger $ QueryLog q Nothing reqId res <- liftIO $ try $ Wreq.postWith options (show url) (J.toJSON q) resp <- either httpThrow return res - let cookieHdr = getCookieHdr (resp ^? Wreq.responseHeader "Set-Cookie") - respHdrs = Just $ mkRespHeaders cookieHdr + let cookieHdrs = getCookieHdr (resp ^.. Wreq.responseHeader "Set-Cookie") + respHdrs = Just $ mkRespHeaders cookieHdrs return $ HttpResponse (encJFromLBS $ resp ^. Wreq.responseBody) respHdrs where @@ -396,7 +396,7 @@ execRemoteGQ reqId userInfo reqHdrs q rsi opDef = do in map (\(k, v) -> (CI.mk $ CS.cs k, CS.cs v)) $ filter (not . isUserVar . fst) txHdrs - getCookieHdr = maybe [] (\h -> [("Set-Cookie", h)]) + getCookieHdr = fmap (\h -> ("Set-Cookie", h)) mkRespHeaders hdrs = map (\(k, v) -> Header (bsToTxt $ CI.original k, bsToTxt v)) hdrs