wip: switching from ncurses to brick

src/Mtlstats/Control/EditStandings.hs

@@ -23,8 +23,9 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 module Mtlstats.Control.EditStandings (editStandingsC) where
 
+import Brick.Types (Widget)
+import Brick.Widgets.Core (str, vBox)
 import Lens.Micro ((^.))
-import qualified UI.NCurses as C
 
 import Mtlstats.Format
 import Mtlstats.Menu
@@ -65,17 +66,16 @@ menuC = menuControllerWith header
 promptC :: Prompt -> Controller
 promptC = promptControllerWith header
 
-header :: ProgState -> C.Update ()
-header = do
-  db <- (^.database)
-  let
-    home  = db^.dbHomeGameStats
-    away  = db^.dbAwayGameStats
-    table = numTable ["   W", "   L", "  OT", "  GF", "  GA"]
+header :: ProgState -> Widget () -> Widget ()
+header s w = let
+  db    = s^.database
+  home  = db^.dbHomeGameStats
+  away  = db^.dbAwayGameStats
+  table  = numTable ["   W", "   L", "  OT", "  GF", "  GA"]
       [ ( "HOME", valsFor home )
       , ( "ROAD", valsFor away )
       ]
-  return $ C.drawString $ unlines $ table ++ [""]
+  in vBox $ map str (table ++ [""]) ++ [w]
 
 valsFor :: GameStats -> [Int]
 valsFor gs =