From 8768966d973d47af48aaa7077120e053ead8d0bd Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 8 Nov 2023 12:06:03 -0400 Subject: [PATCH] improve comments --- Command/Log.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Command/Log.hs b/Command/Log.hs index c6a53451d4..facabd0c0e 100644 --- a/Command/Log.hs +++ b/Command/Log.hs @@ -244,7 +244,8 @@ getKeyLog key os = do let logfile = p P. locationLogFile config key getGitLog [fromRawFilePath logfile] (Param "--remove-empty" : os) -{- Streams the git log for all git-annex branch changes. -} +{- Streams the git log for all git-annex branch changes to location log + - files. -} getAllLog :: [CommandParam] -> Annex ([RefChange], IO Bool) getAllLog = getGitLog [] @@ -257,6 +258,7 @@ getGitLog fs os = do , Param "--pretty=format:%ct" , Param "--raw" , Param "--no-abbrev" + , Param "--no-renames" ] ++ os ++ [ Param $ Git.fromRef Annex.Branch.fullname , Param "--" @@ -277,6 +279,8 @@ getGitLog fs os = do -- -- The timestamp is not included before all changelines, so -- keep track of the most recently seen timestamp. +-- +-- Only changes to location log files are returned. parseGitRawLog :: GitConfig -> [String] -> [RefChange] parseGitRawLog config = parse epoch where -- 2.30.2