{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DerivingStrategies #-}
module Network.Unexceptional.Types
( NonpositiveReceptionSize (..)
, ReceivedTooManyBytes (..)
) where
import Control.Exception (Exception)
data NonpositiveReceptionSize = NonpositiveReceptionSize
deriving stock (Int -> NonpositiveReceptionSize -> ShowS
[NonpositiveReceptionSize] -> ShowS
NonpositiveReceptionSize -> String
(Int -> NonpositiveReceptionSize -> ShowS)
-> (NonpositiveReceptionSize -> String)
-> ([NonpositiveReceptionSize] -> ShowS)
-> Show NonpositiveReceptionSize
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> NonpositiveReceptionSize -> ShowS
showsPrec :: Int -> NonpositiveReceptionSize -> ShowS
$cshow :: NonpositiveReceptionSize -> String
show :: NonpositiveReceptionSize -> String
$cshowList :: [NonpositiveReceptionSize] -> ShowS
showList :: [NonpositiveReceptionSize] -> ShowS
Show)
deriving anyclass (Show NonpositiveReceptionSize
Typeable NonpositiveReceptionSize
(Typeable NonpositiveReceptionSize,
Show NonpositiveReceptionSize) =>
(NonpositiveReceptionSize -> SomeException)
-> (SomeException -> Maybe NonpositiveReceptionSize)
-> (NonpositiveReceptionSize -> String)
-> Exception NonpositiveReceptionSize
SomeException -> Maybe NonpositiveReceptionSize
NonpositiveReceptionSize -> String
NonpositiveReceptionSize -> SomeException
forall e.
(Typeable e, Show e) =>
(e -> SomeException)
-> (SomeException -> Maybe e) -> (e -> String) -> Exception e
$ctoException :: NonpositiveReceptionSize -> SomeException
toException :: NonpositiveReceptionSize -> SomeException
$cfromException :: SomeException -> Maybe NonpositiveReceptionSize
fromException :: SomeException -> Maybe NonpositiveReceptionSize
$cdisplayException :: NonpositiveReceptionSize -> String
displayException :: NonpositiveReceptionSize -> String
Exception)
data ReceivedTooManyBytes = ReceivedTooManyBytes
deriving stock (Int -> ReceivedTooManyBytes -> ShowS
[ReceivedTooManyBytes] -> ShowS
ReceivedTooManyBytes -> String
(Int -> ReceivedTooManyBytes -> ShowS)
-> (ReceivedTooManyBytes -> String)
-> ([ReceivedTooManyBytes] -> ShowS)
-> Show ReceivedTooManyBytes
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> ReceivedTooManyBytes -> ShowS
showsPrec :: Int -> ReceivedTooManyBytes -> ShowS
$cshow :: ReceivedTooManyBytes -> String
show :: ReceivedTooManyBytes -> String
$cshowList :: [ReceivedTooManyBytes] -> ShowS
showList :: [ReceivedTooManyBytes] -> ShowS
Show)
deriving anyclass (Show ReceivedTooManyBytes
Typeable ReceivedTooManyBytes
(Typeable ReceivedTooManyBytes, Show ReceivedTooManyBytes) =>
(ReceivedTooManyBytes -> SomeException)
-> (SomeException -> Maybe ReceivedTooManyBytes)
-> (ReceivedTooManyBytes -> String)
-> Exception ReceivedTooManyBytes
SomeException -> Maybe ReceivedTooManyBytes
ReceivedTooManyBytes -> String
ReceivedTooManyBytes -> SomeException
forall e.
(Typeable e, Show e) =>
(e -> SomeException)
-> (SomeException -> Maybe e) -> (e -> String) -> Exception e
$ctoException :: ReceivedTooManyBytes -> SomeException
toException :: ReceivedTooManyBytes -> SomeException
$cfromException :: SomeException -> Maybe ReceivedTooManyBytes
fromException :: SomeException -> Maybe ReceivedTooManyBytes
$cdisplayException :: ReceivedTooManyBytes -> String
displayException :: ReceivedTooManyBytes -> String
Exception)