From 251f83f673fbf52164dee700e3debde97d7114c8 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 13 Jan 2012 11:29:05 +0200
Subject: [PATCH] unauthorizedI

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

diff --git a/yesod-core/Yesod/Core.hs b/yesod-core/Yesod/Core.hs
index 47f792fc..34500f40 100644
--- a/yesod-core/Yesod/Core.hs
+++ b/yesod-core/Yesod/Core.hs
@@ -15,6 +15,7 @@ module Yesod.Core
     , defaultErrorHandler
       -- * Data types
     , AuthResult (..)
+    , unauthorizedI
       -- * Logging
     , LogLevel (..)
     , formatLogMessage
@@ -76,3 +77,9 @@ logError = logTH LevelError
 -- > $(logOther "My new level") "This is a log message"
 logOther :: Text -> Q Exp
 logOther = logTH . LevelOther
+
+-- | Return an 'Unauthorized' value, with the given i18n message.
+unauthorizedI :: RenderMessage master msg => msg -> GHandler sub master AuthResult
+unauthorizedI msg =do
+    mr <- getMessageRender
+    return $ Unauthorized $ mr msg