From 224a57f9ede1b069777f98dd434b59859005cefd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 22 Jun 2022 16:11:03 -0400 Subject: [PATCH] RawFilePath optimisation --- Annex/Link.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Annex/Link.hs b/Annex/Link.hs index b4da7d5034..edafe9029a 100644 --- a/Annex/Link.hs +++ b/Annex/Link.hs @@ -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