diff --git a/Assistant/WebApp/Configurators.hs b/Assistant/WebApp/Configurators.hs index 69bf92fdb3..6a467692a2 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} -

-

- - - ^{fvInput pathView} -