diff options
author | 2012-09-13 16:47:44 -0400 | |
---|---|---|
committer | 2012-09-13 16:50:02 -0400 | |
commit | 74906ed13f85f0b7b9215d82390e7ccb28551642 (patch) | |
tree | 609199fa58ce00cdd41c88a8eedc9266b453eea5 /Assistant/WebApp/Configurators/Local.hs | |
parent | df337bb63b4ed6e5d2ce563ec89d28d192e791db (diff) |
UI for enabling special remotes
Now other repositories can configure special remotes, and when their
configuration has propigated out, they'll appear in the webapp's list of
repositories, with a link to enable them.
Added support for enabling rsync special remotes, and directory special
remotes that are on removable drives. However, encrypted directory special
remotes are not supported yet. The removable drive configuator doesn't
support them yet anyway.
Diffstat (limited to 'Assistant/WebApp/Configurators/Local.hs')
-rw-r--r-- | Assistant/WebApp/Configurators/Local.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Assistant/WebApp/Configurators/Local.hs b/Assistant/WebApp/Configurators/Local.hs index dd546881b..e77986674 100644 --- a/Assistant/WebApp/Configurators/Local.hs +++ b/Assistant/WebApp/Configurators/Local.hs @@ -27,6 +27,7 @@ import Utility.Mounts import Utility.DiskFree import Utility.DataUnits import Utility.Network +import Remote (prettyListUUIDs) import Yesod import Data.Text (Text) @@ -194,6 +195,14 @@ getAddDriveR = bootstrap (Just Config) $ do void $ makeGitRemote hostname hostlocation addRemote $ makeGitRemote name dir +getEnableDirectoryR :: UUID -> Handler RepHtml +getEnableDirectoryR uuid = bootstrap (Just Config) $ do + sideBarDisplay + setTitle "Enable a repository" + description <- lift $ runAnnex "" $ + T.pack . concat <$> prettyListUUIDs [uuid] + $(widgetFile "configurators/enabledirectory") + {- Start syncing a newly added remote, using a background thread. -} syncRemote :: Remote -> Handler () syncRemote remote = do |