diff options
Diffstat (limited to 'Command/Fsck.hs')
| -rw-r--r-- | Command/Fsck.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index 4890b33bd..59d07caf4 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -434,7 +434,7 @@ runFsck inc file key a = ifM (needFsck inc key) {- Check if a key needs to be fscked, with support for incremental fscks. -} needFsck :: Incremental -> Key -> Annex Bool -needFsck (ContIncremental h) key = not <$> FsckDb.inDb h key +needFsck (ContIncremental h) key = liftIO $ not <$> FsckDb.inDb h key needFsck _ _ = return True withFsckDb :: Incremental -> (FsckDb.DbHandle -> Annex ()) -> Annex () @@ -443,7 +443,9 @@ withFsckDb (StartIncremental h) a = a h withFsckDb NonIncremental _ = noop recordFsckTime :: Incremental -> Key -> Annex () -recordFsckTime inc key = withFsckDb inc $ \h -> FsckDb.addDb h key +recordFsckTime inc key = withFsckDb inc $ \h -> liftIO $ do + FsckDb.addDb h key + FsckDb.commitDb h {- Records the start time of an incremental fsck. - |