From e81bb05b25907641de983c57d7849aac251900f7 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 9 Nov 2020 17:50:35 -0400 Subject: [PATCH] add debug in two unusual situations --- Command/Add.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Command/Add.hs b/Command/Add.hs index 3b411c8f10..800b56bf87 100644 --- a/Command/Add.hs +++ b/Command/Add.hs @@ -27,6 +27,8 @@ import Utility.FileMode import Utility.OptParse import qualified Utility.RawFilePath as R +import System.Log.Logger (debugM) + cmd :: Command cmd = notBareRepo $ withGlobalOptions opts $ @@ -170,13 +172,13 @@ start o si file addunlockedmatcher = do Just s | isSymbolicLink s -> fixuplink key _ -> add fixuplink key = starting "add" (ActionItemWorkTreeFile file) si $ do - -- the annexed symlink is present but not yet added to git + liftIO $ debugM "add" "adding existing annex symlink to git" liftIO $ removeFile (fromRawFilePath file) addLink (checkGitIgnoreOption o) file key Nothing next $ cleanup key =<< inAnnex key fixuppointer key = starting "add" (ActionItemWorkTreeFile file) si $ do - -- the pointer file is present, but not yet added to git + liftIO $ debugM "add" "adding pointer file to git" Database.Keys.addAssociatedFile key =<< inRepo (toTopFilePath file) next $ addFile (checkGitIgnoreOption o) file -- 2.30.2