02170778da
This change adds 3 functions to main API: presignedGetObjectURL, presignedPutObjectURL and presignedHeadObjectURL. A fourth more generic API is added to `Network.Minio.S3API` - makePresignedURL. Additionally, refactors signing code for readability and the ability to reuse for pre-signing.
83 lines
2.7 KiB
Haskell
83 lines
2.7 KiB
Haskell
--
|
|
-- Minio Haskell SDK, (C) 2017 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 where
|
|
|
|
import Control.Exception
|
|
import qualified Network.HTTP.Conduit as NC
|
|
|
|
import Lib.Prelude
|
|
|
|
|
|
---------------------------------
|
|
-- 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
|
|
deriving (Show, Eq)
|
|
|
|
instance Exception MErrV
|
|
|
|
-- | Errors returned by S3 compatible service
|
|
data ServiceErr = BucketAlreadyExists
|
|
| BucketAlreadyOwnedByYou
|
|
| NoSuchBucket
|
|
| InvalidBucketName
|
|
| NoSuchKey
|
|
| ServiceErr Text Text
|
|
deriving (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 (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
|