From 7489f516bc13091347db19b70514dca50038faee Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 23 Oct 2014 15:50:41 -0400 Subject: [PATCH] one last build fix, yes it builds now --- Remote/S3.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Remote/S3.hs b/Remote/S3.hs index e6544a0240..e94612936c 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