From 8416bb65695a8e5581440275dd76ac17dc08f1a3 Mon Sep 17 00:00:00 2001
From: Sibi Prabakaran <sibi@psibi.in>
Date: Thu, 13 Jul 2017 11:27:03 +0530
Subject: [PATCH] Add Haddock documentation for the added function

---
 yesod-core/Yesod/Core/Handler.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/yesod-core/Yesod/Core/Handler.hs b/yesod-core/Yesod/Core/Handler.hs
index 9e6c1333..70f6d1e4 100644
--- a/yesod-core/Yesod/Core/Handler.hs
+++ b/yesod-core/Yesod/Core/Handler.hs
@@ -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)