module Main where

import MiniTimeWindows.Window
  ( formatInstant
  , parseInstant
  , renderStatus
  , sampleWindows
  , statusAt
  )
import System.Environment (getArgs)
import System.Exit (die)

main :: IO ()
main = do
  args <- getArgs
  rawInstant <-
    case args of
      [] -> pure "2026-05-05T10:30:00Z"
      [singleInstant] -> pure singleInstant
      _ -> die "expected either no arguments or: <utc-timestamp>"

  currentInstant <- either die pure (parseInstant rawInstant)
  putStrLn ("at " ++ formatInstant currentInstant ++ ": " ++ renderStatus (statusAt currentInstant sampleWindows))