jlamothe/abacus
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed abacus drawing

This commit is contained in:
Jonathan Lamothe 2024-08-21 20:55:59 -04:00
parent ec905651ef
commit 052901ed27
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Abacus/App/Widgets.hs
View File

@ -28,15 +28,12 @@ module Abacus.App.Widgets (abacusW) where
import Brick
( Widget
, freezeBorders
, hBox
, hLimit
, str
, vBox
, withBorderStyle
)
import Brick.Widgets.Border (hBorder)
import Brick.Widgets.Border.Style (unicode, unicodeBold)
import Brick.Widgets.Border (border, hBorder)
import Lens.Micro.Platform ((^.))
import Abacus
@ -47,10 +44,7 @@ import Abacus.App.Widgets.Internal
abacusW :: AppState -> Widget ()
abacusW s = hBox
[ abacusLeftW s
, withBorderStyle unicodeBold $
freezeBorders $
withBorderStyle unicode $
beadsW $ s^.abacus
, border $ beadsW $ s^.abacus
, abacusRightW s
]