diff options
| author | Joey Hess <joeyh@joeyh.name> | 2019-02-21 13:43:21 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2019-02-21 13:43:44 -0400 |
| commit | 9887a378fef66780da4c63a81a811e68969e6a7f (patch) | |
| tree | 67670d78fa8ca78ebbe22012ebc7df4dd5d96caa /Logs.hs | |
| parent | fd304dce60bfbfd962783c2f50ff3ec085af4746 (diff) | |
renamings to make clean when old-format logs are being used
Diffstat (limited to 'Logs.hs')
| -rw-r--r-- | Logs.hs | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -12,7 +12,7 @@ import Annex.DirHashes {- There are several varieties of log file formats. -} data LogVariety - = UUIDBasedLog + = OldUUIDBasedLog | NewUUIDBasedLog | ChunkLog Key | PresenceLog Key @@ -24,16 +24,16 @@ data LogVariety - of logs used by git-annex, if it's a known path. -} getLogVariety :: FilePath -> Maybe LogVariety getLogVariety f - | f `elem` topLevelUUIDBasedLogs = Just UUIDBasedLog + | f `elem` topLevelOldUUIDBasedLogs = Just OldUUIDBasedLog | isRemoteStateLog f || isRemoteContentIdentifierLog f = Just NewUUIDBasedLog | isChunkLog f = ChunkLog <$> chunkLogFileKey f | isRemoteMetaDataLog f = Just RemoteMetaDataLog | isMetaDataLog f || f `elem` otherLogs = Just OtherLog | otherwise = PresenceLog <$> firstJust (presenceLogs f) -{- All the uuid-based logs stored in the top of the git-annex branch. -} -topLevelUUIDBasedLogs :: [FilePath] -topLevelUUIDBasedLogs = +{- All the (old-format) uuid-based logs stored in the top of the git-annex branch. -} +topLevelOldUUIDBasedLogs :: [FilePath] +topLevelOldUUIDBasedLogs = [ uuidLog , remoteLog , trustLog |