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

FormDemo: whitespace

Browse Source
This commit is contained in:
Jonathan Daugherty 2017-12-26 20:22:42 -08:00
parent 6d8cbe1e6c
commit 4d027c7a43
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
programs/FormDemo.hs
View File

@ -32,12 +32,16 @@ makeLenses ''FormState
mkForm :: FormState -> Form FormState e Name
mkForm =
newForm [ ((hCenter $ str "Edit 1:") <=>) @@= editShowableField field1 Edit1
, (str "Edit 2: " <+>) @@= editShowableField field2 Edit2
, (str "Password: " <+>) @@= editPasswordField fieldPassword Password
, (str "Okay? " <+>) @@= radioField radio [ (True, YesRadio, "Yes")
, (False, NoRadio, "No")
]
newForm [ ((hCenter $ str "Edit 1:") <=>) @@=
editShowableField field1 Edit1
, (str "Edit 2: " <+>) @@=
editShowableField field2 Edit2
, (str "Password: " <+>) @@=
editPasswordField fieldPassword Password
, (str "Okay? " <+>) @@=
radioField radio [ (True, YesRadio, "Yes")
, (False, NoRadio, "No")
]
]
theMap :: AttrMap