RawFilePath optimisation

This commit is contained in:
Joey Hess 2022-06-22 16:11:03 -04:00
parent 95a04920cf
commit 224a57f9ed
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -147,7 +147,7 @@ stagePointerFile file mode sha =
writePointerFile :: RawFilePath -> Key -> Maybe FileMode -> IO ()
writePointerFile file k mode = do
S.writeFile (fromRawFilePath file) (formatPointer k)
maybe noop (setFileMode $ fromRawFilePath file) mode
maybe noop (R.setFileMode file) mode
newtype Restage = Restage Bool