fixed missing blank line between menu header and options
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user