make removeKey throw exceptions
This commit is contained in:
parent
b5ee97f32a
commit
4be94c67c7
28 changed files with 134 additions and 111 deletions
|
@ -201,13 +201,15 @@ retrieve' r k sink = go =<< glacierEnv c gc u
|
|||
sink =<< liftIO (L.hGetContents h)
|
||||
|
||||
remove :: Remote -> Remover
|
||||
remove r k = glacierAction r
|
||||
[ Param "archive"
|
||||
|
||||
, Param "delete"
|
||||
, Param $ getVault $ config r
|
||||
, Param $ archive r k
|
||||
]
|
||||
remove r k = unlessM go $
|
||||
giveup "removal from glacier failed"
|
||||
where
|
||||
go = glacierAction r
|
||||
[ Param "archive"
|
||||
, Param "delete"
|
||||
, Param $ getVault $ config r
|
||||
, Param $ archive r k
|
||||
]
|
||||
|
||||
checkKey :: Remote -> CheckPresent
|
||||
checkKey r k = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue