module Main where

import MiniSummary.Report
  ( parseEvent
  , renderSummary
  , summarizeEvents
  )
import System.Environment (getArgs)
import System.Exit (die)

main :: IO ()
main = do
  args <- getArgs
  let inputArgs =
        case args of
          [] ->
            [ "api:production:succeeded:3:platform,security"
            , "worker:staging:failed-db-lock:1:ops"
            , "ui:production:cancelled:2:frontend"
            ]
          _ -> args

  case traverse parseEvent inputArgs of
    Left err -> die err
    Right events -> putStrLn (renderSummary (summarizeEvents events))