From da4948592db9d49de0dab9ae1fc7b5d16d2f529f Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 29 Mar 2016 09:13:38 +0300 Subject: [PATCH] Version bump --- yesod-core/ChangeLog.md | 4 ++++ yesod-core/Yesod/Core/Handler.hs | 6 ++++++ yesod-core/yesod-core.cabal | 2 +- 3 files changed, 11 insertions(+), 1 deletion(-) diff --git a/yesod-core/ChangeLog.md b/yesod-core/ChangeLog.md index c4844683..b8aec9c8 100644 --- a/yesod-core/ChangeLog.md +++ b/yesod-core/ChangeLog.md @@ -1,3 +1,7 @@ +## 1.4.20 + +* `addMessage`, `addMessageI`, and `getMessages` functions + ## 1.4.19.1 * Allow lines of dashes in route files [#1182](https://github.com/yesodweb/yesod/pull/1182) diff --git a/yesod-core/Yesod/Core/Handler.hs b/yesod-core/Yesod/Core/Handler.hs index 35e767c0..6dc1dd3c 100644 --- a/yesod-core/Yesod/Core/Handler.hs +++ b/yesod-core/Yesod/Core/Handler.hs @@ -527,6 +527,8 @@ msgKey = "_MSG" -- | Adds a status and message in the user's session. -- -- See 'getMessages'. +-- +-- @since 1.4.20 addMessage :: MonadHandler m => Text -- ^ status -> Html -- ^ message @@ -543,6 +545,8 @@ addMessage status msg = do -- | Adds a message in the user's session but uses RenderMessage to allow for i18n -- -- See 'getMessages'. +-- +-- @since 1.4.20 addMessageI :: (MonadHandler m, RenderMessage (HandlerSite m) msg) => Text -> msg -> m () addMessageI status msg = do @@ -552,6 +556,8 @@ addMessageI status msg = do -- | Gets all messages in the user's session, and then clears the variable. -- -- See 'addMessage'. +-- +-- @since 1.4.20 getMessages :: MonadHandler m => m [(Text, Html)] getMessages = do bs <- lookupSessionBS msgKey diff --git a/yesod-core/yesod-core.cabal b/yesod-core/yesod-core.cabal index 31a20e35..efd9aa03 100644 --- a/yesod-core/yesod-core.cabal +++ b/yesod-core/yesod-core.cabal @@ -1,5 +1,5 @@ name: yesod-core -version: 1.4.19.1 +version: 1.4.20 license: MIT license-file: LICENSE author: Michael Snoyman