background task to parse nhl.com
stack build
stack exec hockey-worker
stack exec hockey-web
import Data.Maybe
:l src/Hockey/Processing.hs
results <- fmap fromJust $ getResults (dateFromComponents 2023 05 07) (dateFromComponents 2023 05 07)
let games = (combineGameDates (dates results))
let game = games !! 0
T.status game