From f80ec7412847629746d70aaa1f431d8ad8514e9c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 22 Jun 2022 16:08:26 -0400 Subject: [PATCH] RawFilePath optimisation --- Annex/Content.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.30.2