haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unauthorizedI

Browse Source
This commit is contained in:
Michael Snoyman 2012-01-13 11:29:05 +02:00
parent 6e68102a6f
commit 251f83f673
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
yesod-core/Yesod/Core.hs
View File

@ -15,6 +15,7 @@ module Yesod.Core
, defaultErrorHandler , defaultErrorHandler
-- * Data types -- * Data types
, AuthResult (..) , AuthResult (..)
, unauthorizedI
-- * Logging -- * Logging
, LogLevel (..) , LogLevel (..)
, formatLogMessage , formatLogMessage
@ -76,3 +77,9 @@ logError = logTH LevelError
-- > $(logOther "My new level") "This is a log message" -- > $(logOther "My new level") "This is a log message"
logOther :: Text -> Q Exp logOther :: Text -> Q Exp
logOther = logTH . LevelOther 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