allow enabling existing S3 repos

2012-09-26 15:24:23 -04:00 · 2012-09-26 15:24:23 -04:00 · c2c577f34f
commit c2c577f34f
parent 17708dd173
5 changed files with 93 additions and 33 deletions
--- a/Assistant/WebApp/Configurators.hs
+++ b/Assistant/WebApp/Configurators.hs
@ -65,6 +65,7 @@ repoList onlyconfigured
 			Just c -> case M.lookup "type" c of
 				Just "rsync" -> u `enableswith` EnableRsyncR
 				Just "directory" -> u `enableswith` EnableDirectoryR
+				Just "S3" -> u `enableswith` EnableS3R
 				_ -> Nothing
 		u `enableswith` r = Just (u, Just $ r u)
 		list l = runAnnex [] $ do