From fb772f9d9e31844f22b9df95b8232b476ad659f5 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 25 Dec 2009 03:10:50 +0200
Subject: [PATCH] Added permissionDenied function

---
 Yesod/Handler.hs | 4 ++++
 1 file changed, 4 insertions(+)

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