various layout fixes

This commit is contained in:
2023-05-31 22:19:18 -04:00
parent d92722be9c
commit 284a8c6725
2 changed files with 14 additions and 7 deletions
+6 -2
View File
@@ -24,7 +24,7 @@ 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 Brick.Widgets.Core (vBox)
import Lens.Micro ((^.))
import Mtlstats.Format
@@ -34,6 +34,7 @@ import Mtlstats.Prompt
import Mtlstats.Prompt.EditStandings
import Mtlstats.Types
import Mtlstats.Types.Menu
import Mtlstats.Util
-- | Controller for the edit standings menu
editStandingsC :: EditStandingsMode -> Controller
@@ -75,7 +76,10 @@ header s w = let
[ ( "HOME", valsFor home )
, ( "ROAD", valsFor away )
]
in vBox $ map str (table ++ [""]) ++ [w]
in vBox
[ linesToWidget $ table ++ [""]
, w
]
valsFor :: GameStats -> [Int]
valsFor gs =