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

remove dangling where clause

Browse source
This commit is contained in:
Joey Hess 2022-11-09 13:25:05 -04:00
parent 2eedf58630
commit c69d340ce5
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 0 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Remote/S3.hs
View file

@ -531,7 +531,6 @@ removeExportS3 hv r rs info k loc = withS3Handle hv $ \case
S3.DeleteObject (T.pack $ bucketExportLocation info loc) (bucket info) S3.DeleteObject (T.pack $ bucketExportLocation info loc) (bucket info)
return () return ()
Left p -> giveupS3HandleProblem p (uuid r) Left p -> giveupS3HandleProblem p (uuid r)
where
checkPresentExportS3 :: S3HandleVar -> Remote -> S3Info -> Key -> ExportLocation -> Annex Bool checkPresentExportS3 :: S3HandleVar -> Remote -> S3Info -> Key -> ExportLocation -> Annex Bool
checkPresentExportS3 hv r info k loc = withS3Handle hv $ \case checkPresentExportS3 hv r info k loc = withS3Handle hv $ \case