1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
{-# LANGUAGE CPP #-}
module Aws.S3.Commands.GetService
where
import Aws.Core
import Aws.S3.Core
import Data.Maybe
import Data.Time.Format
#if !MIN_VERSION_time(1,5,0)
import System.Locale
#endif
import Text.XML.Cursor (($/), ($//), (&|))
import qualified Data.Text as T
import qualified Text.XML.Cursor as Cu
data GetService = GetService deriving (Show)
data GetServiceResponse
= GetServiceResponse {
gsrOwner :: UserInfo
, gsrBuckets :: [BucketInfo]
}
deriving (Show)
instance ResponseConsumer r GetServiceResponse where
type ResponseMetadata GetServiceResponse = S3Metadata
responseConsumer _ _ = s3XmlResponseConsumer parse
where
parse el = do
owner <- forceM "Missing Owner" $ el $/ Cu.laxElement "Owner" &| parseUserInfo
buckets <- sequence $ el $// Cu.laxElement "Bucket" &| parseBucket
return GetServiceResponse { gsrOwner = owner, gsrBuckets = buckets }
parseBucket el = do
name <- force "Missing owner Name" $ el $/ elContent "Name"
creationDateString <- force "Missing owner CreationDate" $ el $/ elContent "CreationDate" &| T.unpack
creationDate <- force "Invalid CreationDate" . maybeToList $ parseTimeM True defaultTimeLocale iso8601UtcDate creationDateString
return BucketInfo { bucketName = name, bucketCreationDate = creationDate }
-- | ServiceConfiguration: 'S3Configuration'
instance SignQuery GetService where
type ServiceConfiguration GetService = S3Configuration
signQuery GetService = s3SignQuery S3Query {
s3QMethod = Get
, s3QBucket = Nothing
, s3QObject = Nothing
, s3QSubresources = []
, s3QQuery = []
, s3QContentType = Nothing
, s3QContentMd5 = Nothing
, s3QAmzHeaders = []
, s3QOtherHeaders = []
, s3QRequestBody = Nothing
}
instance Transaction GetService GetServiceResponse
instance AsMemoryResponse GetServiceResponse where
type MemoryResponse GetServiceResponse = GetServiceResponse
loadToMemory = return
|
