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

whitespace

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-05-19 20:26:48 -07:00
parent 6a2bbf6bbf
commit 1489557418
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Brick/List.hs
View File

@ -53,7 +53,10 @@ drawList l =
let es = listElements l
drawn = for (zip [0..] es) $ \(i, e) ->
let isSelected = Just i == listSelected l
in (SetSize (listSetElementSize i) $ listElementDraw l isSelected e, High)
elemPrim = listElementDraw l isSelected e
in ( SetSize (listSetElementSize i) elemPrim
, High
)
in SetSize setSize $
vScroll (listScroll l) $
(VBox drawn <<= VPad ' ') <<+ HPad ' '