From 2659bbf09698e114227e738a765d366461e7fd2a Mon Sep 17 00:00:00 2001 From: Sven Tennie Date: Mon, 20 Feb 2023 15:40:21 +0100 Subject: [PATCH] Enforce HTTP --- services/brig/src/Brig/API/Public/Swagger.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/services/brig/src/Brig/API/Public/Swagger.hs b/services/brig/src/Brig/API/Public/Swagger.hs index 0d0df8509b7..8af9b7977b6 100644 --- a/services/brig/src/Brig/API/Public/Swagger.hs +++ b/services/brig/src/Brig/API/Public/Swagger.hs @@ -77,6 +77,7 @@ adjustSwaggerForInternalEndpoint service examplePort swagger = & S.host ?~ S.Host "localhost" (Just examplePort) & S.allOperations . S.tags <>~ tag -- Enforce HTTP as the services themselves don't understand HTTPS + & S.schemes ?~ [S.Http] & S.allOperations . S.schemes ?~ [S.Http] where tag :: InsOrdSet.InsOrdHashSet S.TagName