diff options
author | Joey Hess <joey@kitenet.net> | 2012-10-10 16:04:28 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-10-10 16:04:28 -0400 |
commit | 7053033f7708c2e432b3ad3e62356bd395932899 (patch) | |
tree | 2b0c617c4e9a4a2e42aee458ee1c4d3421b63d18 /Types | |
parent | 7d6bea416ac6ef0abd900fdb2b941c79168cbb48 (diff) |
add standard group selector to repo edit form
Diffstat (limited to 'Types')
-rw-r--r-- | Types/StandardGroups.hs | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/Types/StandardGroups.hs b/Types/StandardGroups.hs new file mode 100644 index 000000000..151fc3304 --- /dev/null +++ b/Types/StandardGroups.hs @@ -0,0 +1,37 @@ +{- git-annex standard repository groups + - + - Copyright 2012 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Types.StandardGroups where + +data StandardGroup = ClientGroup | TransferGroup | ArchiveGroup | BackupGroup + deriving (Eq, Ord, Enum, Bounded, Show) + +fromStandardGroup :: StandardGroup -> String +fromStandardGroup ClientGroup = "client" +fromStandardGroup TransferGroup = "transfer" +fromStandardGroup ArchiveGroup = "archive" +fromStandardGroup BackupGroup = "backup" + +toStandardGroup :: String -> Maybe StandardGroup +toStandardGroup "client" = Just ClientGroup +toStandardGroup "transfer" = Just TransferGroup +toStandardGroup "archive" = Just ArchiveGroup +toStandardGroup "backup" = Just BackupGroup +toStandardGroup _ = Nothing + +descStandardGroup :: StandardGroup -> String +descStandardGroup ClientGroup = "client: a repository on your computer" +descStandardGroup TransferGroup = "transfer: distributes data to clients" +descStandardGroup ArchiveGroup = "archive: collect content that is not archived elsewhere" +descStandardGroup BackupGroup = "backup: collects all content" + +{- See doc/preferred_content.mdwn for explanations of these expressions. -} +preferredContent :: StandardGroup -> String +preferredContent ClientGroup = "exclude=*/archive/*" +preferredContent TransferGroup = "not inallgroup=client and " ++ preferredContent ClientGroup +preferredContent ArchiveGroup = "not copies=archive:1" +preferredContent BackupGroup = "" -- all content is preferred |