module Aws.S3.Error
where
import Data.Typeable
import qualified Control.Exception as C
import qualified Data.ByteString as B
import qualified Data.Text as T
import qualified Network.HTTP.Types as HTTP
type ErrorCode = T.Text
data S3Error
= S3Error {
s3StatusCode :: HTTP.Status
, s3ErrorCode :: ErrorCode
, s3ErrorMessage :: T.Text
, s3ErrorResource :: Maybe T.Text
, s3ErrorHostId :: Maybe T.Text
, s3ErrorAccessKeyId :: Maybe T.Text
, s3ErrorStringToSign :: Maybe B.ByteString
}
deriving (Show, Typeable)
instance C.Exception S3Error