From 052901ed277253b014729ec300fdb9ad8a0ce8cc Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jonathan@jlamothe.net>
Date: Wed, 21 Aug 2024 20:55:59 -0400
Subject: [PATCH] fixed abacus drawing

---
 src/Abacus/App/Widgets.hs | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/src/Abacus/App/Widgets.hs b/src/Abacus/App/Widgets.hs
index b321af9..b9ab2c7 100644
--- a/src/Abacus/App/Widgets.hs
+++ b/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
   ]