also generate a drop safety proof for move --from remote
This commit is contained in:
parent
b944da832b
commit
e392ec112f
4 changed files with 39 additions and 5 deletions
|
@ -120,7 +120,7 @@ performRemote key afile numcopies remote = do
|
|||
liftIO $ debugM "drop" $ unwords
|
||||
[ "Dropping from remote"
|
||||
, show remote
|
||||
, "proof: "
|
||||
, "proof:"
|
||||
, show proof
|
||||
]
|
||||
ok <- Remote.removeKey remote key
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue