added header to title page

This commit is contained in:
Jonathan Lamothe 2020-01-22 13:48:34 -05:00
parent f2b2ff3fef
commit 179a864cfa

View File

@ -36,7 +36,10 @@ titleScreenC = Controller
{ drawController = const $ do
(_, cols) <- C.windowSize
C.drawString $ unlines $ map (centre $ fromIntegral $ pred cols)
$ titleText
$ [ ""
, "MONTREAL CANADIENS STATISTICS"
]
++ titleText
++ [ ""
, "Copyright (C) 1984, 1985, 2019, 2020 Rhéal Lamothe"
, "<rheal.lamothe@gmail.com>"