diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-07-31 18:33:19 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-07-31 18:33:19 -0400 |
| commit | c950e8fba0de95f3a102b2653f70457fc8f19ab3 (patch) | |
| tree | c66d818c72d6c09e484b56df43ce720abac52848 /Assistant | |
| parent | 4b5ffe8f9b84c20912871b0dfe627d041ce2d99f (diff) | |
move out to template
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/WebApp/Configurators.hs | 20 |
1 files changed, 3 insertions, 17 deletions
diff --git a/Assistant/WebApp/Configurators.hs b/Assistant/WebApp/Configurators.hs index 69bf92fdb..6a467692a 100644 --- a/Assistant/WebApp/Configurators.hs +++ b/Assistant/WebApp/Configurators.hs @@ -48,24 +48,10 @@ addRepositoryForm :: Form RepositoryPath addRepositoryForm msg = do cwd <- liftIO $ getCurrentDirectory (pathRes, pathView) <- mreq textField "" (Just $ pack cwd) - let widget = do + let form = do webAppFormAuthToken - toWidget [julius| -$(function() { - $('##{fvId pathView}').focus(); -}) -|] - [whamlet| -#{msg} -<p> - <div .input-prepend .input-append> - <span .add-on> - <i .icon-folder-open></i> - ^{fvInput pathView} - <button type=submit .btn> - Make Repository -|] - return (RepositoryPath <$> pathRes, widget) + $(widgetFile "configurators/addrepository/form") + return (RepositoryPath <$> pathRes, form) addRepository :: Bool -> Widget addRepository firstrun = do |