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

renderRadio: remove unnecessary hBox

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-07-28 18:43:26 -07:00
parent db98ec8a73
commit c9963d0429
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Brick/Forms.hs
View File

@ -482,10 +482,11 @@ renderRadio lb check rb val name label foc cur =
csr = if foc then putCursor name (Location (1,0)) else id
in clickable name $
addAttr $ csr $
hBox [ txt $ T.singleton lb
, txt $ if isSet then T.singleton check else " "
, txt $ T.singleton rb <> " " <> label
]
txt $ T.concat $
[ T.singleton lb
, if isSet then T.singleton check else " "
, T.singleton rb <> " " <> label
]
-- | A form field for using an editor to edit the text representation of
-- a value. The other editing fields in this module are special cases of