yesod-alerts 0.1.0.0 → 0.1.1.0

raw patch · 2 files changed

+10/−3 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/Yesod/Alert.hs +9/−2
• yesod-alerts.cabal +1/−1

@@ -1,3 +1,5 @@+{-# LANGUAGE FlexibleContexts #-}+ -- | Setup this package by modifying your definition of *defaultLayout* in -- *Foundation.hs* --@@ -36,6 +38,7 @@ module Yesod.Alert     ( -- * Setting alerts       setAlert+    , setAlertI        -- ** Shortcuts     , setDefaultAlert@@ -59,10 +62,14 @@ import Yesod.Core import qualified Data.Text.Lazy as TL --- Set an 'Alert'+-- | Set an 'Alert' setAlert :: MonadHandler m => Alert -> m () setAlert (Alert alert msg) = addMessage (pack $ show alert) $ toHtml msg +-- | Set an 'Alert' allowing i18n+setAlertI :: (MonadHandler m, RenderMessage (HandlerSite m) msg) => AlertStatus -> msg -> m ()+setAlertI alert msg = addMessageI (pack $ show alert) msg+ setDefaultAlert :: MonadHandler m => TL.Text -> m () setDefaultAlert msg = setAlert (Alert Default msg) @@ -78,7 +85,7 @@ setErrorAlert :: MonadHandler m => TL.Text -> m () setErrorAlert msg = setAlert (Alert Error msg) --- Get available 'Alert's+-- | Get available 'Alert's getAlerts :: MonadHandler m => m [Alert] getAlerts = do     msgs <- getMessages

@@ -1,5 +1,5 @@ name:                yesod-alerts-version:             0.1.0.0+version:             0.1.1.0 synopsis:            Alert messages for the Yesod framework description:         Use the "alerts" package with the Yesod framework homepage:            https://github.com/alx741/yesod-alerts#readme