fixed abacus drawing

src/Abacus/App/Widgets.hs

@@ -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
   ]