Errors.hs

--
-- MinIO Haskell SDK, (C) 2017-2023 MinIO, Inc.
--
-- Licensed under the Apache License, Version 2.0 (the "License");
-- you may not use this file except in compliance with the License.
-- You may obtain a copy of the License at
--
--     http://www.apache.org/licenses/LICENSE-2.0
--
-- Unless required by applicable law or agreed to in writing, software
-- distributed under the License is distributed on an "AS IS" BASIS,
-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-- See the License for the specific language governing permissions and
-- limitations under the License.
--

module Network.Minio.Errors
  ( MErrV (..),
    ServiceErr (..),
    MinioErr (..),
    toServiceErr,
  )
where

import Control.Exception (IOException)
import qualified Network.HTTP.Conduit as NC

---------------------------------
-- Errors
---------------------------------

-- | Various validation errors
data MErrV
  = MErrVSinglePUTSizeExceeded Int64
  | MErrVPutSizeExceeded Int64
  | MErrVETagHeaderNotFound
  | MErrVInvalidObjectInfoResponse
  | MErrVInvalidSrcObjSpec Text
  | MErrVInvalidSrcObjByteRange (Int64, Int64)
  | MErrVCopyObjSingleNoRangeAccepted
  | MErrVRegionNotSupported Text
  | MErrVXmlParse Text
  | MErrVInvalidBucketName Text
  | MErrVInvalidObjectName Text
  | MErrVInvalidUrlExpiry Int
  | MErrVJsonParse Text
  | MErrVInvalidHealPath
  | MErrVMissingCredentials
  | MErrVInvalidEncryptionKeyLength
  | MErrVStreamingBodyUnexpectedEOF
  | MErrVUnexpectedPayload
  | MErrVSTSEndpointNotFound
  deriving stock (Show, Eq)

instance Exception MErrV

-- | Errors returned by S3 compatible service
data ServiceErr
  = BucketAlreadyExists
  | BucketAlreadyOwnedByYou
  | NoSuchBucket
  | InvalidBucketName
  | NoSuchKey
  | SelectErr Text Text
  | ServiceErr Text Text
  deriving stock (Show, Eq)

instance Exception ServiceErr

toServiceErr :: Text -> Text -> ServiceErr
toServiceErr "NoSuchKey" _ = NoSuchKey
toServiceErr "NoSuchBucket" _ = NoSuchBucket
toServiceErr "InvalidBucketName" _ = InvalidBucketName
toServiceErr "BucketAlreadyOwnedByYou" _ = BucketAlreadyOwnedByYou
toServiceErr "BucketAlreadyExists" _ = BucketAlreadyExists
toServiceErr code message = ServiceErr code message

-- | Errors thrown by the library
data MinioErr
  = MErrHTTP NC.HttpException
  | MErrIO IOException
  | MErrService ServiceErr
  | MErrValidation MErrV
  deriving stock (Show)

instance Eq MinioErr where
  MErrHTTP _ == MErrHTTP _ = True
  MErrHTTP _ == _ = False
  MErrIO _ == MErrIO _ = True
  MErrIO _ == _ = False
  MErrService a == MErrService b = a == b
  MErrService _ == _ = False
  MErrValidation a == MErrValidation b = a == b
  MErrValidation _ == _ = False

instance Exception MinioErr