module Chiasma.Data.TmuxOutputBlock where

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

data TmuxOutputBlock =
  Success [Text]
  |
  Error [Text]
  deriving stock (TmuxOutputBlock -> TmuxOutputBlock -> Bool
(TmuxOutputBlock -> TmuxOutputBlock -> Bool)
-> (TmuxOutputBlock -> TmuxOutputBlock -> Bool)
-> Eq TmuxOutputBlock
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TmuxOutputBlock -> TmuxOutputBlock -> Bool
$c/= :: TmuxOutputBlock -> TmuxOutputBlock -> Bool
== :: TmuxOutputBlock -> TmuxOutputBlock -> Bool
$c== :: TmuxOutputBlock -> TmuxOutputBlock -> Bool
Eq, Int -> TmuxOutputBlock -> ShowS
[TmuxOutputBlock] -> ShowS
TmuxOutputBlock -> String
(Int -> TmuxOutputBlock -> ShowS)
-> (TmuxOutputBlock -> String)
-> ([TmuxOutputBlock] -> ShowS)
-> Show TmuxOutputBlock
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [TmuxOutputBlock] -> ShowS
$cshowList :: [TmuxOutputBlock] -> ShowS
show :: TmuxOutputBlock -> String
$cshow :: TmuxOutputBlock -> String
showsPrec :: Int -> TmuxOutputBlock -> ShowS
$cshowsPrec :: Int -> TmuxOutputBlock -> ShowS
Show)