Network.DO.Spaces.Utils

Small utilities

General utilities

tshow :: Show a => a -> Text

Show some Text

bshow :: Show a => a -> ByteString

Show a ByteString

unquote :: Text -> Text

Strip leading and trailing double quotes from a Text

quote :: (IsString a, Monoid a) => a -> a

bodyLBS :: MonadThrow m => RequestBody -> m ByteString

Convert a RequestBody to a ByteString

toLowerBS :: ByteString -> ByteString

Map ByteString chars to lower-case

handleMaybe :: MonadCatch m => (a -> m b) -> a -> m (Maybe b)

regionSlug :: IsString a => Region -> a

Convert a Region to its equivalent slug

showCannedACL :: IsString a => CannedACL -> a

renderUploadHeaders :: UploadHeaders -> [Header]

Convert UploadHeaders to a list of request Headers

defaultUploadHeaders :: UploadHeaders

slugToRegion :: (MonadThrow m, IsString a, Eq a) => a -> m Region

getResponseMetadata :: Status -> RawResponse m -> SpacesMetadata

Create a SpacesMetadata by reading response Headers, after passing the Status

mkNode :: Name -> Text -> Node

Create an XML Node

showPermission :: IsString a => Permission -> a

Parsing/reading

XML

xmlDocCursor :: (MonadIO m, MonadThrow m) => RawResponse m -> m Cursor

xmlInt :: (MonadThrow m, Num a) => Text -> m a

Read a Num type from Text

xmlElemError :: Text -> ClientException

Helper to build exceptions during XML parsing

xmlUTCTime :: MonadThrow m => Text -> m UTCTime

Read a UTCTime from an ISO-O8601-formatted Text

xmlNum :: Num a => MonadThrow m => Text -> Cursor Node -> m a

Read a Num type, encoded as an integer, from XML

xmlMaybeElem :: Cursor Node -> Text -> Maybe Text

isTruncP :: MonadThrow m => Cursor Node -> m Bool

bucketP :: MonadThrow m => Cursor Node -> m Bucket

Parse the name of a Bucket from XML

objectP :: MonadThrow m => Cursor Node -> m Object

Parse the name of an Object from XML

etagP :: MonadThrow m => Cursor Node -> m ETag

XML parser for ETag attribute

ownerP :: MonadThrow m => Cursor Node -> m Owner

XML parser for Owner attribute

lastModifiedP :: MonadThrow m => Cursor Node -> m UTCTime

XML parser for LastModified attribute

aclP :: MonadThrow m => Cursor Node -> m ACLResponse

writeACLSetter :: (HasField' "owner" r Owner, HasField' "acls" r [Grant]) => r -> ByteString

Response headers

lookupObjectMetadata :: MonadThrow m => RawResponse m -> m ObjectMetadata

lookupHeader :: Monad m => RawResponse m -> HeaderName -> MaybeT m ByteString

Lookup the value of a HeaderName from a RawResponse in a monadic context

readEtag :: Monad m => ByteString -> MaybeT m ETag

Transform a Header value into an ETag

readContentLen :: Monad m => ByteString -> MaybeT m Int

Transform a Header value into an Int (for Content-Length)