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

implemented Mtlstats.Control.EditStandings.header

This commit is contained in:
Jonathan Lamothe 2020-01-15 01:00:26 -05:00
parent baf040deea
commit 107ed507e2
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/Mtlstats/Control/EditStandings.hs
View File

@ -21,8 +21,10 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
module Mtlstats.Control.EditStandings (editStandingsC) where
import Lens.Micro ((^.))
import qualified UI.NCurses as C
import Mtlstats.Format
import Mtlstats.Menu
import Mtlstats.Menu.EditStandings
import Mtlstats.Types
@ -32,4 +34,16 @@ editStandingsC :: Controller
editStandingsC = menuControllerWith header editStandingsMenu
header :: ProgState -> C.Update ()
header = undefined
header = do
db <- (^.database)
let
home = db^.dbHomeGameStats
away = db^.dbAwayGameStats
table = numTable ["Wins", "Losses", "Overtime", "Goals for", "Goals against"]
[ ( "Home", valsFor home )
, ( "Road", valsFor away )
]
return $ C.drawString $ unlines $ table ++ [""]
valsFor :: GameStats -> [Int]
valsFor = undefined