module Main where

import MiniStatePlanner.Plan
  ( DeploymentRequest (DeploymentRequest)
  , Environment (Production, Staging)
  , PlannedDeployment (PlannedDeployment)
  , parseRequest
  , planDeployments
  , renderPlan
  )
import System.Exit (die)

main :: IO ()
main =
  case traverse parseRequest ["api:production:3", "worker:staging:1", "cache:production:2"] of
    Left err -> die err
    Right requests ->
      case planDeployments requests of
        [ PlannedDeployment 1001 1 (DeploymentRequest "api" Production 3)
          , PlannedDeployment 1002 1 (DeploymentRequest "worker" Staging 1)
          , PlannedDeployment 1003 2 (DeploymentRequest "cache" Production 2)
          ] | "cache -> production, replicas 2, build 1003, wave 2" `elem` lines (renderPlan (planDeployments requests)) ->
              putStrLn "test passed"
        _ -> die "unexpected planning result"