{-# options_haddock prune #-}

-- |PtyError ADT, Internal
module Polysemy.Process.Data.PtyError where

-- |Internal error used by an interpreter for 'Polysemy.Process.Pty'.
data PtyError =
  PtyError Text
  deriving stock (PtyError -> PtyError -> Bool
(PtyError -> PtyError -> Bool)
-> (PtyError -> PtyError -> Bool) -> Eq PtyError
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PtyError -> PtyError -> Bool
$c/= :: PtyError -> PtyError -> Bool
== :: PtyError -> PtyError -> Bool
$c== :: PtyError -> PtyError -> Bool
Eq, Int -> PtyError -> ShowS
[PtyError] -> ShowS
PtyError -> String
(Int -> PtyError -> ShowS)
-> (PtyError -> String) -> ([PtyError] -> ShowS) -> Show PtyError
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PtyError] -> ShowS
$cshowList :: [PtyError] -> ShowS
show :: PtyError -> String
$cshow :: PtyError -> String
showsPrec :: Int -> PtyError -> ShowS
$cshowsPrec :: Int -> PtyError -> ShowS
Show)