add some functions listing log files

Not used yet, will be used by copy-branch to generate the list of files
to copy.

diff --git a/Logs.hs b/Logs.hs
index 03d72caa82ade39e72168fe7d594234b0fcc163e..2948106692bde5f8119fb4a0d56e1f8a86788b9f 100644 (file)
--- a/Logs.hs
+++ b/Logs.hs
@@ -60,6 +60,26 @@ getLogVariety config f
 logFilesToCache :: Int
 logFilesToCache = 2
 
+{- All the log files that might contain information about a key. -}
+keyLogFiles :: GitConfig -> Key -> [RawFilePath]
+keyLogFiles config k = 
+       [ locationLogFile config k
+       , urlLogFile config k
+       , remoteStateLogFile config k
+       , metaDataLogFile config k
+       , remoteMetaDataLogFile config k
+       , remoteContentIdentifierLogFile config k
+       , chunkLogFile config k
+       ] ++ oldurlLogs config k
+
+{- All the log files that do not contain information specific to a key. -}
+nonKeyLogFiles :: [RawFilePath]
+nonKeyLogFiles = concat
+       [ topLevelNewUUIDBasedLogs
+       , topLevelOldUUIDBasedLogs
+       , otherTopLevelLogs
+       ]
+
 {- All the old-format uuid-based logs stored in the top of the git-annex branch. -}
 topLevelOldUUIDBasedLogs :: [RawFilePath]
 topLevelOldUUIDBasedLogs =

diff --git a/doc/todo/copy-key___40__--batch__41___to_copy__47__merge_availability_info/comment_5_3565680846a8d547d0912d1ef31430b2._comment b/doc/todo/copy-key___40__--batch__41___to_copy__47__merge_availability_info/comment_5_3565680846a8d547d0912d1ef31430b2._comment
index 444918d789f60d9840a69fc5e48217bbe98bfa0c..7a816fa12696f68a4c86c747fc9de1303f98456f 100644 (file)
--- a/doc/todo/copy-key___40__--batch__41___to_copy__47__merge_availability_info/comment_5_3565680846a8d547d0912d1ef31430b2._comment
+++ b/doc/todo/copy-key___40__--batch__41___to_copy__47__merge_availability_info/comment_5_3565680846a8d547d0912d1ef31430b2._comment
@@ -26,15 +26,14 @@ uuid, including a special case involving remoteLog.
 Implementation plan:
 
 * Address above problems with dropDead, somehow, so it can be reused.
+  (done; refactored to filterBranch)
 * Add a function (in Logs) from a key to all possible git-annex branch log
-  files for that key.
+  files for that key. (done; keyLogFiles)
 * For each key seeked, run that function, query the branch to see which 
   log files exist, and pass through dropDead to filter and populate
   the temporary index. This way, the command does not need to buffer
   the whole set of keys in memory.
-* Get a list of all non-key logs
-  `(topLevelNewUUIDBasedLogs++topLevelOldUUIDBasedLogs++otherLogs)`,
-  and pass them all through dropDead as well.
+* Pass nonKeyLogFiles through dropDead as well.
 * Refactor regraftexports from Annex.Branch, and call it after
   constructing the filtered index.
 """]]