module Test.Sandwich.Types.General where

data ExitReason = NormalExit | InterruptExit
  deriving (Int -> ExitReason -> ShowS
[ExitReason] -> ShowS
ExitReason -> String
(Int -> ExitReason -> ShowS)
-> (ExitReason -> String)
-> ([ExitReason] -> ShowS)
-> Show ExitReason
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ExitReason] -> ShowS
$cshowList :: [ExitReason] -> ShowS
show :: ExitReason -> String
$cshow :: ExitReason -> String
showsPrec :: Int -> ExitReason -> ShowS
$cshowsPrec :: Int -> ExitReason -> ShowS
Show, ExitReason -> ExitReason -> Bool
(ExitReason -> ExitReason -> Bool)
-> (ExitReason -> ExitReason -> Bool) -> Eq ExitReason
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ExitReason -> ExitReason -> Bool
$c/= :: ExitReason -> ExitReason -> Bool
== :: ExitReason -> ExitReason -> Bool
$c== :: ExitReason -> ExitReason -> Bool
Eq)