module Language.JavaScript.Inline.Core.Exception where

import Control.Exception

data NotThreadedRTS
  = NotThreadedRTS
  deriving (Int -> NotThreadedRTS -> ShowS
[NotThreadedRTS] -> ShowS
NotThreadedRTS -> String
(Int -> NotThreadedRTS -> ShowS)
-> (NotThreadedRTS -> String)
-> ([NotThreadedRTS] -> ShowS)
-> Show NotThreadedRTS
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [NotThreadedRTS] -> ShowS
$cshowList :: [NotThreadedRTS] -> ShowS
show :: NotThreadedRTS -> String
$cshow :: NotThreadedRTS -> String
showsPrec :: Int -> NotThreadedRTS -> ShowS
$cshowsPrec :: Int -> NotThreadedRTS -> ShowS
Show)

instance Exception NotThreadedRTS

data NodeVersionUnsupported
  = NodeVersionUnsupported
  deriving (Int -> NodeVersionUnsupported -> ShowS
[NodeVersionUnsupported] -> ShowS
NodeVersionUnsupported -> String
(Int -> NodeVersionUnsupported -> ShowS)
-> (NodeVersionUnsupported -> String)
-> ([NodeVersionUnsupported] -> ShowS)
-> Show NodeVersionUnsupported
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [NodeVersionUnsupported] -> ShowS
$cshowList :: [NodeVersionUnsupported] -> ShowS
show :: NodeVersionUnsupported -> String
$cshow :: NodeVersionUnsupported -> String
showsPrec :: Int -> NodeVersionUnsupported -> ShowS
$cshowsPrec :: Int -> NodeVersionUnsupported -> ShowS
Show)

instance Exception NodeVersionUnsupported

newtype EvalError = EvalError
  { EvalError -> String
evalErrorMessage :: String
  }
  deriving (Int -> EvalError -> ShowS
[EvalError] -> ShowS
EvalError -> String
(Int -> EvalError -> ShowS)
-> (EvalError -> String)
-> ([EvalError] -> ShowS)
-> Show EvalError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [EvalError] -> ShowS
$cshowList :: [EvalError] -> ShowS
show :: EvalError -> String
$cshow :: EvalError -> String
showsPrec :: Int -> EvalError -> ShowS
$cshowsPrec :: Int -> EvalError -> ShowS
Show)

instance Exception EvalError

data SessionClosed
  = SessionClosed
  deriving (Int -> SessionClosed -> ShowS
[SessionClosed] -> ShowS
SessionClosed -> String
(Int -> SessionClosed -> ShowS)
-> (SessionClosed -> String)
-> ([SessionClosed] -> ShowS)
-> Show SessionClosed
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SessionClosed] -> ShowS
$cshowList :: [SessionClosed] -> ShowS
show :: SessionClosed -> String
$cshow :: SessionClosed -> String
showsPrec :: Int -> SessionClosed -> ShowS
$cshowsPrec :: Int -> SessionClosed -> ShowS
Show)

instance Exception SessionClosed