jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-12-02 11:05:10 +03:00
Code Issues Projects Releases Wiki Activity

FormDemo: UI nit

Browse Source
This commit is contained in:
Jonathan Daugherty 2017-12-26 20:05:20 -08:00
parent ee9b476adf
commit eca0b2abbf
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
programs/FormDemo.hs
View File

@ -33,7 +33,7 @@ makeLenses ''FormState
mkForm :: FormState -> Form FormState e Name
mkForm =
newForm [ editShowableField field1 Edit1
`withHelper` (\w -> str "Edit 1: " <+> w)
`withHelper` (\w -> (hCenter $ str "Edit 1:") <=> w)
, editShowableField field2 Edit2
`withHelper` (\w -> str "Edit 2: " <+> w)
, editPasswordField fieldPassword Password