cleanup
This commit is contained in:
parent
335c06171a
commit
8f634a5e16
1 changed files with 1 additions and 1 deletions
|
@ -187,7 +187,7 @@ dropCmd file = notinBackend file $ \(key, backend) -> do
|
||||||
then do
|
then do
|
||||||
cleanup key
|
cleanup key
|
||||||
showEndOk
|
showEndOk
|
||||||
else showEndFail "backend refused to drop" file
|
else showEndFail "drop" file
|
||||||
where
|
where
|
||||||
cleanup key = do
|
cleanup key = do
|
||||||
logStatus key ValueMissing
|
logStatus key ValueMissing
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue