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 /Annex | |
| parent | 7d6bea416ac6ef0abd900fdb2b941c79168cbb48 (diff) | |
add standard group selector to repo edit form
Diffstat (limited to 'Annex')
| -rw-r--r-- | Annex/StandardGroups.hs | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/Annex/StandardGroups.hs b/Annex/StandardGroups.hs deleted file mode 100644 index 7c47cc628..000000000 --- a/Annex/StandardGroups.hs +++ /dev/null @@ -1,30 +0,0 @@ -{- git-annex standard repository groups - - - - Copyright 2012 Joey Hess <joey@kitenet.net> - - - - Licensed under the GNU GPL version 3 or higher. - -} - -module Annex.StandardGroups where - -data StandardGroup = ClientGroup | TransferGroup | ArchiveGroup | BackupGroup - -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 - -{- 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 |