fix more layout issues based on joey's feedback

This commit is contained in:
Sören Brunk 2014-04-30 16:38:37 +02:00
parent 2920554787
commit 58f92f148b
13 changed files with 76 additions and 44 deletions

View file

@ -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