{-# OPTIONS_GHC -fno-warn-orphans #-}

module Yesod.Core.Types.Instances.Catch
  () where

import ClassyPrelude.Yesod
import Yesod.Core.Types

import Control.Monad.Catch (MonadMask, MonadCatch)


deriving via (ReaderT (HandlerData site site) IO) instance MonadCatch (HandlerFor site)
deriving via (ReaderT (HandlerData sub site) IO) instance MonadCatch (SubHandlerFor sub site)
deriving via (ReaderT (WidgetData site) IO) instance MonadCatch (WidgetFor site)

deriving via (ReaderT (HandlerData site site) IO) instance MonadMask (HandlerFor site)
deriving via (ReaderT (HandlerData sub site) IO) instance MonadMask (SubHandlerFor sub site)
deriving via (ReaderT (WidgetData site) IO) instance MonadMask (WidgetFor site)
