module Network.S3.Types
( S3URL (..)
, S3Keys (..)
, S3Method (..)
, S3Request (..)
) where
import Data.ByteString.UTF8 (ByteString)
import GHC.Generics (Generic)
newtype S3URL = S3URL {
signedRequest :: ByteString
} deriving (Generic, Show)
data S3Keys = S3Keys {
publicKey :: ByteString
, secretKey :: ByteString
} deriving (Generic, Show)
data S3Method = S3GET
| S3PUT
deriving (Generic, Show)
data S3Request = S3Request {
s3method :: S3Method
, bucketName :: ByteString
, objectName :: ByteString
, secondsToExpire :: Integer
} deriving (Generic, Show)