diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-10-23 15:50:41 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-10-23 15:50:41 -0400 |
| commit | 5b78b71b6e746b3fb8d7204d29e3d434f2ce0cba (patch) | |
| tree | 4b062738a299df4a95e349e9e7807b1f90743768 /Remote/S3.hs | |
| parent | 4a4d15f91fc07233a8f762e017459118ba1993c1 (diff) | |
one last build fix, yes it builds now
Diffstat (limited to 'Remote/S3.hs')
| -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 e6544a024..e94612936 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -86,7 +86,7 @@ gen r u c gc = do mkUnavailable = gen r u (M.insert "host" "!dne!" c) gc, getInfo = includeCredsInfo c (AWS.creds u) $ catMaybes [ Just ("bucket", fromMaybe "unknown" (getBucketName c)) - , if isIA c + , if configIA c then Just ("internet archive item", iaItemUrl $ fromMaybe "unknown" $ getBucketName c) else Nothing ] @@ -97,7 +97,7 @@ s3Setup mu mcreds c = do u <- maybe (liftIO genUUID) return mu s3Setup' u mcreds c s3Setup' :: UUID -> Maybe CredPair -> RemoteConfig -> Annex (RemoteConfig, UUID) -s3Setup' u mcreds c = if isIA c then archiveorg else defaulthost +s3Setup' u mcreds c = if configIA c then archiveorg else defaulthost where remotename = fromJust (M.lookup "name" c) defbucket = remotename ++ "-" ++ fromUUID u |