Add Haddock documentation for the added function

This commit is contained in:
Sibi Prabakaran 2017-07-13 11:27:03 +05:30
parent a31c270893
commit 8416bb6569
No known key found for this signature in database
GPG Key ID: D19E3E0EBB557613

View File

@ -789,6 +789,13 @@ setHeader :: MonadHandler m => Text -> Text -> m ()
setHeader = addHeader
{-# DEPRECATED setHeader "Please use addHeader instead" #-}
-- | Replace an existing header with a new value or add a new header
-- if not present.
--
-- Note that, while the data type used here is 'Text', you must provide only
-- ASCII value to be HTTP compliant.
--
-- @since 1.4.36
replaceOrAddHeader :: MonadHandler m => Text -> Text -> m ()
replaceOrAddHeader a b =
let header = Header (encodeUtf8 a) (encodeUtf8 b)