From 37863623003b50113cc646cf00b7304288d7e1ca Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Sun, 27 Jan 2013 19:03:53 +0200 Subject: [PATCH] Add Failure instance for GHandler --- yesod-core/Yesod/Handler.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/yesod-core/Yesod/Handler.hs b/yesod-core/Yesod/Handler.hs index 2d3ceac3..1997bdbe 100644 --- a/yesod-core/Yesod/Handler.hs +++ b/yesod-core/Yesod/Handler.hs @@ -129,6 +129,7 @@ import Control.Exception hiding (Handler, catch, finally) import Control.Applicative import Control.Monad (liftM) +import Control.Failure (Failure (failure)) import Control.Monad.IO.Class import Control.Monad.Trans.Class (MonadTrans) @@ -1059,3 +1060,6 @@ instance MonadLogger (GHandler sub master) where monadLoggerLogSource a b c d = do hd <- ask liftIO $ handlerLog hd a b c (toLogStr d) + +instance Exception e => Failure e (GHandler sub master) where + failure = liftIO . throwIO