fix build warning
A recent change made plumbing the backend through fsck unncessary. Left fsck checking backend and skipping operating on key when it could not find one, although I'm not sure if that's necessary to support eg, keys with unknown backend.
This commit is contained in:
parent
7cef5e8f35
commit
dd4c4bcd7a
2 changed files with 19 additions and 19 deletions
|
@ -126,7 +126,7 @@ perform onlytweaksize o file oldkey oldkeyrec oldbackend newbackend = go =<< gen
|
|||
| knowngoodcontent = finish =<< tweaksize newkey
|
||||
| otherwise = stopUnless checkcontent $
|
||||
finish =<< tweaksize newkey
|
||||
checkcontent = Command.Fsck.checkBackend oldbackend oldkey KeyPresent afile
|
||||
checkcontent = Command.Fsck.checkBackend oldkey KeyPresent afile
|
||||
finish newkey = ifM (Command.ReKey.linkKey file oldkey newkey)
|
||||
( do
|
||||
_ <- copyMetaData oldkey newkey
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue