fixed spacing on title screen
This commit is contained in:
parent
097d51f34b
commit
2d5c4e6471
|
@ -24,18 +24,17 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|||
module Mtlstats.Control.TitleScreen (titleScreenC) where
|
||||
|
||||
import Brick.Types (BrickEvent (VtyEvent))
|
||||
import Brick.Widgets.Center (hCenter)
|
||||
import Brick.Widgets.Core (str, vBox)
|
||||
import Control.Monad.State.Class (modify)
|
||||
import Data.Char (chr)
|
||||
import Graphics.Vty.Input.Events (Event (EvKey))
|
||||
|
||||
import Mtlstats.Actions
|
||||
import Mtlstats.Types
|
||||
import Mtlstats.Util
|
||||
|
||||
titleScreenC :: Controller
|
||||
titleScreenC = Controller
|
||||
{ drawController = const $ vBox $ map (hCenter . str)
|
||||
{ drawController = const $ linesToWidgetC
|
||||
$ [ ""
|
||||
, "MONTREAL CANADIENS STATISTICS"
|
||||
]
|
||||
|
|
Loading…
Reference in New Issue
Block a user