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