fsck: When a key is not previously known in the location log, record something so that reinject --known will work.

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"