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

reorg templates

Browse source
This commit is contained in:
Joey Hess 2012-09-08 23:32:08 -04:00
parent 6e60b08060
commit f62cc48482
10 changed files with 10 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Assistant/WebApp/Configurators/Local.hs
View file

@ -107,8 +107,8 @@ defaultRepositoryPath firstrun = do
)
else return cwd
localRepositoryForm :: Form RepositoryPath
localRepositoryForm msg = do
firstRepositoryForm :: Form RepositoryPath
firstRepositoryForm msg = do
path <- T.pack . addTrailingPathSeparator
<$> (liftIO . defaultRepositoryPath =<< lift inFirstRun)
(pathRes, pathView) <- mreq (repositoryPathField True) "" (Just path)
@ -118,7 +118,7 @@ localRepositoryForm msg = do
FormSuccess _ -> (False, "")
let form = do
webAppFormAuthToken
$(widgetFile "configurators/localrepositoryform")
$(widgetFile "configurators/firstrepository/form")
return (RepositoryPath <$> pathRes, form)
{- Making the first repository, when starting the webapp for the first time. -}
@ -126,7 +126,7 @@ getFirstRepositoryR :: Handler RepHtml
getFirstRepositoryR = bootstrap (Just Config) $ do
sideBarDisplay
setTitle "Getting started"
((res, form), enctype) <- lift $ runFormGet localRepositoryForm
((res, form), enctype) <- lift $ runFormGet firstRepositoryForm
case res of
FormSuccess (RepositoryPath p) -> lift $
startFullAssistant $ T.unpack p