webapp: put new repos in standard groups

I'm using transfer for most things, both removable drives and cloud
storage, because it's the safest choice. We'll see if it makes sense
to prompt for the group when setting this up, or let the user pick
something else after the fact.

2 files changed, 10 insertions, 2 deletions

diff --git a/Annex/Groups.hs b/Annex/StandardGroups.hs
index 3b4449514..e94185fbf 100644
--- a/Annex/Groups.hs
+++ b/Annex/StandardGroups.hs
@@ -5,7 +5,12 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-module Annex.Groups where
+module Annex.StandardGroups where
+
+import Common.Annex
+import Logs.Group
+
+import qualified Data.Set as S
 
 data StandardGroup = ClientGroup | TransferGroup | ArchiveGroup | BackupGroup
 
@@ -28,3 +33,6 @@ preferredContent ClientGroup = "exclude=*/archive/*"
 preferredContent TransferGroup = "not inallgroup=client and " ++ preferredContent ClientGroup
 preferredContent ArchiveGroup = "not copies=archive:1"
 preferredContent BackupGroup = "" -- all content is preferred
+
+setStandardGroup :: UUID -> StandardGroup -> Annex ()
+setStandardGroup u = groupSet u . S.singleton . fromStandardGroup
diff --git a/Logs/PreferredContent.hs b/Logs/PreferredContent.hs
index 8fdfef1fd..e31aa7bae 100644
--- a/Logs/PreferredContent.hs
+++ b/Logs/PreferredContent.hs
@@ -25,10 +25,10 @@ import Logs.UUIDBased
 import Limit
 import qualified Utility.Matcher
 import Annex.UUID
-import Annex.Groups
 import Git.FilePath
 import Types.Group
 import Logs.Group
+import Annex.StandardGroups
 
 {- Filename of preferred-content.log. -}
 preferredContentLog :: FilePath