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