diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-29 18:51:22 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-29 19:13:00 -0400 |
| commit | 7a53fb249f0c02762d8c13f413e24c5c250167dd (patch) | |
| tree | b612c5a8b9c630561ae1ff02dd8cd6c076881f19 /Logs/Group.hs | |
| parent | d3c895b8b328685541cf41e025cff17f94b258b1 (diff) | |
refactor git-annex branch log filename code into central location
Having one module that knows about all the filenames used on the branch
allows working back from an arbitrary filename to enough information about
it to implement dropping dead remotes and doing other log file compacting
as part of a forget transition.
Diffstat (limited to 'Logs/Group.hs')
| -rw-r--r-- | Logs/Group.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Logs/Group.hs b/Logs/Group.hs index ee3b75b86..3f88b627d 100644 --- a/Logs/Group.hs +++ b/Logs/Group.hs @@ -21,16 +21,13 @@ import qualified Data.Set as S import Data.Time.Clock.POSIX import Common.Annex +import Logs import qualified Annex.Branch import qualified Annex import Logs.UUIDBased import Types.Group import Types.StandardGroups -{- Filename of group.log. -} -groupLog :: FilePath -groupLog = "group.log" - {- Returns the groups of a given repo UUID. -} lookupGroups :: UUID -> Annex (S.Set Group) lookupGroups u = (fromMaybe S.empty . M.lookup u) . groupsByUUID <$> groupMap |