group, ungroup: New commands to indicate groups of repositories.
This commit is contained in:
parent
cf858190a5
commit
2a96b1aab3
10 changed files with 174 additions and 0 deletions
20
Types/Group.hs
Normal file
20
Types/Group.hs
Normal file
|
@ -0,0 +1,20 @@
|
|||
{- git-annex repo groups
|
||||
-
|
||||
- Copyright 2012 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU GPL version 3 or higher.
|
||||
-}
|
||||
|
||||
module Types.Group (
|
||||
Group,
|
||||
GroupMap
|
||||
) where
|
||||
|
||||
import Types.UUID
|
||||
|
||||
import qualified Data.Map as M
|
||||
import qualified Data.Set as S
|
||||
|
||||
type Group = String
|
||||
|
||||
type GroupMap = M.Map UUID (S.Set Group)
|
Loading…
Add table
Add a link
Reference in a new issue