44 lines
1.4 KiB
Haskell
44 lines
1.4 KiB
Haskell
{- git-annex assistant webapp configurators
|
|
-
|
|
- Copyright 2012 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE QuasiQuotes, TemplateHaskell, OverloadedStrings #-}
|
|
|
|
module Assistant.WebApp.Configurators where
|
|
|
|
import Assistant.WebApp.Common
|
|
import Assistant.WebApp.RepoList
|
|
|
|
{- The main configuration screen. -}
|
|
getConfigurationR :: Handler Html
|
|
getConfigurationR = ifM inFirstRun
|
|
( redirect FirstRepositoryR
|
|
, page "Configuration" (Just Configuration) $ do
|
|
$(widgetFile "configurators/main")
|
|
)
|
|
|
|
getAddRepositoryR :: Handler Html
|
|
getAddRepositoryR = page "Add Repository" (Just Configuration) $ do
|
|
let repolist = repoListDisplay mainRepoSelector
|
|
$(widgetFile "configurators/addrepository")
|
|
|
|
makeMiscRepositories :: Widget
|
|
makeMiscRepositories = $(widgetFile "configurators/addrepository/misc")
|
|
|
|
makeCloudRepositories :: Widget
|
|
makeCloudRepositories = $(widgetFile "configurators/addrepository/cloud")
|
|
|
|
makeWormholePairing :: Widget
|
|
makeWormholePairing = $(widgetFile "configurators/addrepository/wormholepairing")
|
|
|
|
makeSshRepository :: Widget
|
|
makeSshRepository = $(widgetFile "configurators/addrepository/ssh")
|
|
|
|
makeConnectionRepositories :: Widget
|
|
makeConnectionRepositories = $(widgetFile "configurators/addrepository/connection")
|
|
|
|
makeArchiveRepositories :: Widget
|
|
makeArchiveRepositories = $(widgetFile "configurators/addrepository/archive")
|