wip: switching from ncurses to brick

src/Mtlstats/Control/NewGame/GoalieInput.hs

@@ -21,9 +21,10 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 module Mtlstats.Control.NewGame.GoalieInput (goalieInputC) where
 
+import Brick.Types (Widget)
+import Brick.Widgets.Core (str, vBox)
 import Data.Maybe (fromMaybe)
 import Lens.Micro ((^.))
-import qualified UI.NCurses as C
 
 import Mtlstats.Format
 import Mtlstats.Menu
@@ -52,11 +53,11 @@ goalsAllowedC = promptControllerWith header goalsAllowedPrompt
 selectGameGoalieC :: Controller
 selectGameGoalieC = menuStateController gameGoalieMenu
 
-header :: ProgState -> C.Update ()
-header s = C.drawString $ unlines
+header :: ProgState -> Widget () -> Widget ()
+header s w = vBox $ map str
   [ "*** GAME " ++ padNum 2 (s^.database.dbGames) ++ " ***"
   , fromMaybe "" $ do
     n <- s^.progMode.gameStateL.gameSelectedGoalie
     g <- nth n $ s^.database.dbGoalies
     Just $ goalieSummary g
-  ]
+  ] ++ [w]