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
|
setS3VersionID info rs k vid
|
||||||
Left _ -> noop
|
Left _ -> noop
|
||||||
return k
|
return k
|
||||||
Left p -> giveupS3HandleProblem p (uuid r)
|
Left pr -> giveupS3HandleProblem pr (uuid r)
|
||||||
o = T.pack $ bucketExportLocation info loc
|
o = T.pack $ bucketExportLocation info loc
|
||||||
retrieveExportWithContentIdentifierS3 _ _ _ _ _ [] _ _ _ = giveup "missing content identifier"
|
retrieveExportWithContentIdentifierS3 _ _ _ _ _ [] _ _ _ = giveup "missing content identifier"
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue