diff --git a/Assistant/WebApp/Configurators/WebDAV.hs b/Assistant/WebApp/Configurators/WebDAV.hs index a0ed8f4037..272b1b280e 100644 --- a/Assistant/WebApp/Configurators/WebDAV.hs +++ b/Assistant/WebApp/Configurators/WebDAV.hs @@ -47,7 +47,7 @@ boxComAForm :: Maybe CredPair -> MkAForm WebDAVInput boxComAForm defcreds = WebDAVInput <$> areq textField (bfs "Username or Email") (T.pack . fst <$> defcreds) <*> areq passwordField (bfs "Box.com Password") (T.pack . snd <$> defcreds) - <*> areq checkBoxField (bfs "Share this account with other devices and friends?") (Just True) + <*> areq checkBoxField "Share this account with other devices and friends?" (Just True) <*> areq textField (bfs "Directory") (Just "annex") <*> enableEncryptionField diff --git a/Assistant/WebApp/Form.hs b/Assistant/WebApp/Form.hs index d6b1c156e7..c08c502d03 100644 --- a/Assistant/WebApp/Form.hs +++ b/Assistant/WebApp/Form.hs @@ -148,7 +148,7 @@ enableEncryptionField = areq (selectFieldList choices) (bfs "Encryption") (Just {- Defines the layout used by the Bootstrap3 form helper -} bootstrapFormLayout :: BootstrapFormLayout -bootstrapFormLayout = BootstrapHorizontalForm (ColSm 0) (ColSm 2) (ColSm 0) (ColSm 5) +bootstrapFormLayout = BootstrapHorizontalForm (ColSm 0) (ColSm 2) (ColSm 0) (ColSm 10) {- Adds the form-control class used by Bootstrap3 for layout to a field - This is the same as Yesod.Form.Bootstrap3.bfs except it takes just a Text diff --git a/templates/actionbutton.hamlet b/templates/actionbutton.hamlet index 4741dcb57d..b51d1dee86 100644 --- a/templates/actionbutton.hamlet +++ b/templates/actionbutton.hamlet @@ -1,3 +1,3 @@ # - #{fromMaybe "" label} + \ #{fromMaybe "" label} diff --git a/templates/configurators/delete/currentrepository.hamlet b/templates/configurators/delete/currentrepository.hamlet index 439d4fd10c..917e923637 100644 --- a/templates/configurators/delete/currentrepository.hamlet +++ b/templates/configurators/delete/currentrepository.hamlet @@ -4,7 +4,7 @@ Deleting #{reldir}

Deleting this repository will remove #{reldir} and all its # - ^{actionButton FileBrowserR (Just "files") (Just "Click to open a file browser") "" "icon-folder-open"}. + ^{actionButton FileBrowserR (Just "files") (Just "Click to open a file browser") "" "glyphicon-folder-open"}. $if havegitremotes $if havedataremotes

diff --git a/templates/configurators/edit/repository.hamlet b/templates/configurators/edit/repository.hamlet index 86db12210a..8e308b542d 100644 --- a/templates/configurators/edit/repository.hamlet +++ b/templates/configurators/edit/repository.hamlet @@ -24,7 +24,8 @@