diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-10-23 15:41:57 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-10-23 15:41:57 -0400 |
| commit | ab27f9327a6385a05109edd0ea22b5b7f09336b6 (patch) | |
| tree | e7debacf9189c7bd414250b09f6c8311c87f6f6b /Remote | |
| parent | 2ba780447efd5352b1c1f27d730c44286f564da1 (diff) | |
fix build
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/S3.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index fe0b4992a..85392bb06 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -83,9 +83,9 @@ gen r u c gc = do remotetype = remote, mkUnavailable = gen r u (M.insert "host" "!dne!" c) gc, getInfo = includeCredsInfo c (AWS.creds u) $ catMaybes - [ Just ("bucket", fromMaybe "unknown" (getBucket c)) + [ Just ("bucket", fromMaybe "unknown" (getBucketName c)) , if isIA c - then Just ("internet archive item", iaItemUrl $ fromMaybe "unknown" $ getBucket c) + then Just ("internet archive item", iaItemUrl $ fromMaybe "unknown" $ getBucketName c) else Nothing ] } |