mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

webapp: put new repos in standard groups

Browse source 
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.
This commit is contained in:
Joey Hess 2012-10-10 15:27:25 -04:00
parent f9b81c7a75
commit 3490977d97
5 changed files with 18 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Assistant/WebApp/Configurators/S3.hs
View file

@ -21,12 +21,11 @@ import qualified Remote.S3 as S3
import Logs.Remote
import qualified Remote
import Types.Remote (RemoteConfig)
import Logs.Group
import Annex.StandardGroups
import Yesod
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Set as S
import qualified Data.Map as M
s3Configurator :: Widget -> Handler RepHtml
@ -94,7 +93,7 @@ getAddS3R = s3Configurator $ do
let authtoken = webAppFormAuthToken
$(widgetFile "configurators/adds3")
setgroup r = runAnnex () $
groupSet (Remote.uuid r) (S.singleton "servers")
setStandardGroup (Remote.uuid r) TransferGroup
getEnableS3R :: UUID -> Handler RepHtml
getEnableS3R uuid = s3Configurator $ do