fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

added header to title page

Browse Source
This commit is contained in:
Jonathan Lamothe
2020-01-22 13:48:34 -05:00
parent f2b2ff3fef
commit 179a864cfa
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Mtlstats/Control/TitleScreen.hs
View File

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