Added permissionDenied function

This commit is contained in:
Michael Snoyman 2009-12-25 03:10:50 +02:00
parent 0c6493f5f5
commit fb772f9d9e

View File

@ -27,6 +27,7 @@ module Yesod.Handler
-- * Special handlers -- * Special handlers
, redirect , redirect
, notFound , notFound
, permissionDenied
-- * Setting headers -- * Setting headers
, addCookie , addCookie
, deleteCookie , deleteCookie
@ -206,6 +207,9 @@ redirect = errorResult . Redirect
notFound :: Handler yesod a notFound :: Handler yesod a
notFound = errorResult NotFound notFound = errorResult NotFound
permissionDenied :: Handler yesod a
permissionDenied = errorResult PermissionDenied
------- Headers ------- Headers
-- | Set the cookie on the client. -- | Set the cookie on the client.
addCookie :: Int -- ^ minutes to timeout addCookie :: Int -- ^ minutes to timeout