{-# language DeriveAnyClass #-}
{-# language DerivingStrategies #-}
module Http.Exchange.Types
( HttpException(..)
) where
import qualified Control.Exception as E
data HttpException
= ChunkTooLarge
| ChunkedBodyEndOfInput
| NonchunkedBodyEndOfInput
| ContentLengthDuplicated
| ContentLengthMalformed
| ContentLengthTooLarge
| ExpectedCrlfAfterChunk
| ExpectedCrlfAfterChunkLength
| ExpectedCrlfBeforeChunkLength
|
|
|
| ImplementationMistake
| NonNumericChunkLength
| PipelinedResponses
| TransferEncodingUnrecognized
| TransferEncodingDuplicated
deriving stock (Int -> HttpException -> ShowS
[HttpException] -> ShowS
HttpException -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [HttpException] -> ShowS
$cshowList :: [HttpException] -> ShowS
show :: HttpException -> String
$cshow :: HttpException -> String
showsPrec :: Int -> HttpException -> ShowS
$cshowsPrec :: Int -> HttpException -> ShowS
Show)
deriving anyclass (Show HttpException
Typeable HttpException
SomeException -> Maybe HttpException
HttpException -> String
HttpException -> SomeException
forall e.
Typeable e
-> Show e
-> (e -> SomeException)
-> (SomeException -> Maybe e)
-> (e -> String)
-> Exception e
displayException :: HttpException -> String
$cdisplayException :: HttpException -> String
fromException :: SomeException -> Maybe HttpException
$cfromException :: SomeException -> Maybe HttpException
toException :: HttpException -> SomeException
$ctoException :: HttpException -> SomeException
E.Exception)