mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build

Browse source
This commit is contained in:
Joey Hess 2014-10-23 15:41:57 -04:00
parent 346f0409a6
commit f0989cf0bd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Remote/S3.hs
View file

@ -83,9 +83,9 @@ gen r u c gc = do
remotetype = remote, remotetype = remote,
mkUnavailable = gen r u (M.insert "host" "!dne!" c) gc, mkUnavailable = gen r u (M.insert "host" "!dne!" c) gc,
getInfo = includeCredsInfo c (AWS.creds u) $ catMaybes getInfo = includeCredsInfo c (AWS.creds u) $ catMaybes
[ Just ("bucket", fromMaybe "unknown" (getBucket c)) [ Just ("bucket", fromMaybe "unknown" (getBucketName c))
, if isIA 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 else Nothing
] ]
} }