diff --git a/yesod-core/Yesod/Core/Handler.hs b/yesod-core/Yesod/Core/Handler.hs index e4413ab2..e5cbc443 100644 --- a/yesod-core/Yesod/Core/Handler.hs +++ b/yesod-core/Yesod/Core/Handler.hs @@ -194,7 +194,7 @@ import Web.PathPieces (PathPiece(..)) import Yesod.Core.Class.Handler import Yesod.Core.Types import Yesod.Routes.Class (Route) -import Control.Failure (failure) +import Control.Exception (throwIO) import Blaze.ByteString.Builder (Builder) import Safe (headMay) import Data.CaseInsensitive (CI) @@ -229,7 +229,7 @@ tell :: MonadHandler m => Endo [Header] -> m () tell hs = modify $ \g -> g { ghsHeaders = ghsHeaders g `mappend` hs } handlerError :: MonadHandler m => HandlerContents -> m a -handlerError = liftHandlerT . failure +handlerError = liftIO . throwIO hcError :: MonadHandler m => ErrorResponse -> m a hcError = handlerError . HCError diff --git a/yesod-core/yesod-core.cabal b/yesod-core/yesod-core.cabal index a31f3fcc..54dd2226 100644 --- a/yesod-core/yesod-core.cabal +++ b/yesod-core/yesod-core.cabal @@ -43,7 +43,6 @@ library , random >= 1.0.0.2 && < 1.1 , cereal >= 0.3 , old-locale >= 1.0.0.2 && < 1.1 - , failure >= 0.2 && < 0.3 , containers >= 0.2 , monad-control >= 0.3 && < 0.4 , transformers-base >= 0.4