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

module Servant.Server.Instances
  () where

import ClassyPrelude hiding (Handler(..))
import Servant.Server

import Control.Monad.Trans.Except.Instances ()


instance MonadUnliftIO Handler where
  withRunInIO cont = Handler (withRunInIO $ \runInner -> cont (runInner . runHandler'))
