getLegacyPlayoffsR :: HandlerT site IO Value
getLegacyPlayoffsR =
  liftIO $ do
    e <- env
    p <- selectPeriods (database e) (year e) Playoffs
    s <- selectSeeds (database e) (year e)
    g <- selectGamesForSeason (database e) (year e) Playoffs
    e <- selectEvents (database e) (year e) Playoffs
    returnJson $ PlayoffsResponse p s g e
getLegacyPlayoffsR :: HandlerT site IO Value
getLegacyPlayoffsR =
  liftIO $ do
    e <- env
    p <- selectPeriods (database e) (year e) Playoffs
    s <- selectSeeds (database e) (year e)
    g <- selectGamesForSeason (database e) (year e) Playoffs
    e <- selectEvents (database e) (year e) Playoffs
    returnJson $ PlayoffsResponse p s g e
getLegacyPlayoffsR =
  liftIO $ do
    e <- env
    p <- selectPeriods (database e) (year e) Playoffs
    s <- selectSeeds (database e) (year e)
    g <- selectGamesForSeason (database e) (year e) Playoffs
    e <- selectEvents (database e) (year e) Playoffs
    returnJson $ PlayoffsResponse p s g e