diff --git a/src/Yesod/Alert.hs b/src/Yesod/Alert.hs
--- a/src/Yesod/Alert.hs
+++ b/src/Yesod/Alert.hs
@@ -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
diff --git a/yesod-alerts.cabal b/yesod-alerts.cabal
--- a/yesod-alerts.cabal
+++ b/yesod-alerts.cabal
@@ -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