fixed missing blank line between menu header and options

This commit is contained in:
2023-05-30 18:45:03 -04:00
parent 08e0f96a81
commit 166483dc50
2 changed files with 8 additions and 3 deletions
+1 -2
View File
@@ -37,7 +37,6 @@ module Mtlstats.Menu (
import Brick.Main (halt)
import Brick.Types (BrickEvent (VtyEvent), Widget)
import Brick.Widgets.Center (hCenter)
import Brick.Widgets.Core (str, vBox)
import Control.Monad.State.Class (gets, modify)
import Data.Char (toUpper)
import qualified Data.Map as M
@@ -87,7 +86,7 @@ menuStateController menuFunc = Controller
drawMenu :: Menu a -> Widget ()
drawMenu m = let
menuLines = lines $ show m
in hCenter $ vBox $ map str menuLines
in hCenter $ linesToWidget menuLines
-- | The event handler for a 'Menu'
menuHandler :: Menu a -> Handler a