From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 22 Jun 2022 20:08:26 +0000 (-0400)
Subject: RawFilePath optimisation
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~72^2~155
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=f80ec7412847629746d70aaa1f431d8ad8514e9c;p=git-annex.git

RawFilePath optimisation
---

diff --git a/Annex/Content.hs b/Annex/Content.hs
index c054d45951..6e31ef0ea5 100644
--- a/Annex/Content.hs
+++ b/Annex/Content.hs
@@ -641,7 +641,7 @@ removeAnnex (ContentRemovalLock key) = withObjectLoc key $ \file ->
   where
 	-- Check associated pointer file for modifications, and reset if
 	-- it's unmodified.
-	resetpointer file = unlessM (liftIO $ isSymbolicLink <$> getSymbolicLinkStatus (fromRawFilePath file)) $
+	resetpointer file = unlessM (liftIO $ isSymbolicLink <$> R.getSymbolicLinkStatus file) $
 		ifM (isUnmodified key file)
 			( adjustedBranchRefresh (AssociatedFile (Just file)) $
 				depopulatePointerFile key file