feat: add Content-Length response header

2025-04-24 12:49:18 -05:00
parent 98fcbedca5
commit 57ef9988a5
23 changed files with 298 additions and 114 deletions
@@ -281,6 +281,9 @@ noBlankHeader = notElem mempty
 noProfileHeader :: [Header] -> Bool
 noProfileHeader headers = isNothing $ find ((== "Content-Profile") . fst) headers

+notZeroContentLength :: [Header] -> Bool
+notZeroContentLength headers = maybe False (/= "0") $ lookup hContentLength headers
+
 authHeader :: BS.ByteString -> BS.ByteString -> Header
 authHeader typ creds =
  (hAuthorization, typ <> " " <> creds)