RawFilePath optimisations

This commit is contained in:
Joey Hess 2022-06-22 16:20:08 -04:00
parent 224a57f9ed
commit d00e23cac9
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 4 additions and 4 deletions

View file

@ -68,5 +68,5 @@ depopulatePointerFile key file = do
(\t -> touch tmp' t False)
(fmap Posix.modificationTimeHiRes st)
#endif
withTSDelta (liftIO . genInodeCache (toRawFilePath tmp))
withTSDelta (liftIO . genInodeCache tmp')
maybe noop (restagePointerFile (Restage True) file) ic