fluid-idl-0.0.0: library/Fluid/RuntimeThrower.hs

module Fluid.RuntimeThrower
  ( RuntimeThrower(..)
  ) where

import Control.Monad.Except

import qualified Fluid.Server.Exchange as Server
import Fluid.Types

class Monad m => RuntimeThrower m where
  runtimeThrow :: RuntimeError -> m a

instance RuntimeThrower IO where
  runtimeThrow err = error $ "Runtime error - " ++ show err

instance Monad m => RuntimeThrower (ExceptT Server.Response m) where
  runtimeThrow = throwError . Server.Response'Error . Server.ResponseError'Runtime