diff options
Diffstat (limited to 'Command/Fsck.hs')
| -rw-r--r-- | Command/Fsck.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index fb8290281..28ce7752d 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -258,7 +258,14 @@ verifyLocationLog' key desc present u updatestatus = do ++ "\n** was expected to be present, " ++ "but its content is missing." return False - _ -> return True + (False, False) -> do + -- When the location log for the key is not present, + -- create it, so that the key will be known. + when (null uuids) $ + whenM (not <$> isKnownKey key) $ + updatestatus InfoMissing + return True + (True, True) -> return True where fix s = do showNote "fixing location log" |