fix build warning
This commit is contained in:
parent
cdbee87a05
commit
27444459e9
1 changed files with 1 additions and 1 deletions
|
@ -691,7 +691,7 @@ retrieveExportWithContentIdentifierS3 hv r rs info loc (cid:_) dest gk p =
|
|||
setS3VersionID info rs k vid
|
||||
Left _ -> noop
|
||||
return k
|
||||
Left p -> giveupS3HandleProblem p (uuid r)
|
||||
Left pr -> giveupS3HandleProblem pr (uuid r)
|
||||
o = T.pack $ bucketExportLocation info loc
|
||||
retrieveExportWithContentIdentifierS3 _ _ _ _ _ [] _ _ _ = giveup "missing content identifier"
|
||||
|
||||
|
|
Loading…
Reference in a new issue