diff options
Diffstat (limited to 'Command/Fsck.hs')
-rw-r--r-- | Command/Fsck.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Command/Fsck.hs b/Command/Fsck.hs index dac3bfac9..c60101fc7 100644 --- a/Command/Fsck.hs +++ b/Command/Fsck.hs @@ -166,10 +166,9 @@ verifyLocationLog key desc = do -- Since we're checking that a key's file is present, throw -- in a permission fixup here too. when present $ do - f <- inRepo $ gitAnnexLocation key - liftIO $ do - preventWrite f - preventWrite (parentDir f) + file <- inRepo $ gitAnnexLocation key + freezeContent file + freezeContentDir file u <- getUUID verifyLocationLog' key desc present u (logChange key u) |