reorg templates

This commit is contained in:
Joey Hess 2013-03-15 12:47:41 -04:00
parent 52f8ec3dc7
commit 48d9a3182f
4 changed files with 3 additions and 3 deletions

View file

@ -32,10 +32,10 @@ getConfigurationR = ifM (inFirstRun)
getAddRepositoryR :: Handler RepHtml
getAddRepositoryR = page "Add Repository" (Just Configuration) $ do
let repolist = repoListDisplay mainRepoSelector
$(widgetFile "configurators/repositories")
$(widgetFile "configurators/addrepository")
makeMiscRepositories :: Widget
makeMiscRepositories = $(widgetFile "configurators/repositories/misc")
makeMiscRepositories = $(widgetFile "configurators/addrepository/misc")
makeCloudRepositories :: Bool -> Widget
makeCloudRepositories onlyTransfer = $(widgetFile "configurators/repositories/cloud")
makeCloudRepositories onlyTransfer = $(widgetFile "configurators/addrepository/cloud")