mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

RawFilePath optimisation

Browse source
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
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Annex/Link.hs
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