Fix empty headers being added on POST/PATCH/DELETE (#1458)

2020-03-13 11:02:38 -05:00
parent 5b5945e427
commit 0f8838623b
5 changed files with 57 additions and 13 deletions
@@ -178,6 +178,9 @@ matchHeader :: CI BS.ByteString -> BS.ByteString -> [Header] -> Bool
 matchHeader name valRegex headers =
  maybe False (=~ valRegex) $ lookup name headers

+noBlankHeader :: [Header] -> Bool
+noBlankHeader = notElem mempty
+
 authHeaderBasic :: BS.ByteString -> BS.ByteString -> Header
 authHeaderBasic u p =
  (hAuthorization, "Basic " <> (toS . B64.encode . toS $ u <> ":" <> p))