2013-08-31 21:38:33 +00:00
|
|
|
{- git-annex branch transitions
|
|
|
|
|
-
|
|
|
|
|
- Copyright 2013 Joey Hess <joey@kitenet.net>
|
|
|
|
|
-
|
|
|
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
|
|
|
-}
|
|
|
|
|
|
|
|
|
|
module Annex.Branch.Transitions (
|
|
|
|
|
FileTransition(..),
|
|
|
|
|
getTransitionCalculator
|
|
|
|
|
) where
|
|
|
|
|
|
|
|
|
|
import Logs
|
|
|
|
|
import Logs.Transitions
|
|
|
|
|
import Logs.UUIDBased as UUIDBased
|
|
|
|
|
import Logs.Presence.Pure as Presence
|
|
|
|
|
import Types.TrustLevel
|
|
|
|
|
import Types.UUID
|
|
|
|
|
|
|
|
|
|
import qualified Data.Map as M
|
|
|
|
|
|
|
|
|
|
data FileTransition
|
|
|
|
|
= ChangeFile String
|
|
|
|
|
| RemoveFile
|
|
|
|
|
| PreserveFile
|
|
|
|
|
|
|
|
|
|
type TransitionCalculator = FilePath -> String -> TrustMap -> FileTransition
|
|
|
|
|
|
|
|
|
|
getTransitionCalculator :: Transition -> Maybe TransitionCalculator
|
|
|
|
|
getTransitionCalculator ForgetGitHistory = Nothing
|
|
|
|
|
getTransitionCalculator ForgetDeadRemotes = Just dropDead
|
|
|
|
|
|
|
|
|
|
dropDead :: FilePath -> String -> TrustMap -> FileTransition
|
|
|
|
|
dropDead f content trustmap = case getLogVariety f of
|
|
|
|
|
Just UUIDBasedLog -> ChangeFile $
|
|
|
|
|
UUIDBased.showLog id $ dropDeadFromUUIDBasedLog trustmap $ UUIDBased.parseLog Just content
|
add remote state logs
This allows a remote to store a piece of arbitrary state associated with a
key. This is needed to support Tahoe, where the file-cap is calculated from
the data stored in it, and used to retrieve a key later. Glacier also would
be much improved by using this.
GETSTATE and SETSTATE are added to the external special remote protocol.
Note that the state is left as-is even when a key is removed from a remote.
It's up to the remote to decide when it wants to clear the state.
The remote state log, $KEY.log.rmt, is a UUID-based log. However,
rather than using the old UUID-based log format, I created a new variant
of that format. The new varient is more space efficient (since it lacks the
"timestamp=" hack, and easier to parse (and the parser doesn't mess with
whitespace in the value), and avoids compatability cruft in the old one.
This seemed worth cleaning up for these new files, since there could be a
lot of them, while before UUID-based logs were only used for a few log
files at the top of the git-annex branch. The transition code has also
been updated to handle these new UUID-based logs.
This commit was sponsored by Daniel Hofer.
2014-01-03 20:35:57 +00:00
|
|
|
Just NewUUIDBasedLog -> ChangeFile $
|
|
|
|
|
UUIDBased.showLogNew id $ dropDeadFromUUIDBasedLog trustmap $ UUIDBased.parseLogNew Just content
|
2013-08-31 21:38:33 +00:00
|
|
|
Just (PresenceLog _) ->
|
|
|
|
|
let newlog = Presence.compactLog $ dropDeadFromPresenceLog trustmap $ Presence.parseLog content
|
|
|
|
|
in if null newlog
|
|
|
|
|
then RemoveFile
|
|
|
|
|
else ChangeFile $ Presence.showLog newlog
|
2014-02-13 01:12:22 +00:00
|
|
|
Just OtherLog -> PreserveFile
|
2013-08-31 21:38:33 +00:00
|
|
|
Nothing -> PreserveFile
|
|
|
|
|
|
|
|
|
|
dropDeadFromUUIDBasedLog :: TrustMap -> UUIDBased.Log String -> UUIDBased.Log String
|
|
|
|
|
dropDeadFromUUIDBasedLog trustmap = M.filterWithKey $ notDead trustmap . const
|
|
|
|
|
|
|
|
|
|
{- Presence logs can contain UUIDs or other values. Any line that matches
|
|
|
|
|
- a dead uuid is dropped; any other values are passed through. -}
|
|
|
|
|
dropDeadFromPresenceLog :: TrustMap -> [Presence.LogLine] -> [Presence.LogLine]
|
|
|
|
|
dropDeadFromPresenceLog trustmap = filter $ notDead trustmap (toUUID . Presence.info)
|
|
|
|
|
|
|
|
|
|
notDead :: TrustMap -> (v -> UUID) -> v -> Bool
|
|
|
|
|
notDead trustmap a v = M.findWithDefault SemiTrusted (a v) trustmap /= DeadTrusted
|