From 5b78b71b6e746b3fb8d7204d29e3d434f2ce0cba Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 23 Oct 2014 15:50:41 -0400 Subject: one last build fix, yes it builds now --- Remote/S3.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Remote') 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 -- cgit v1.2.3