module Main where

import MiniPlan.Build (describePlan, parsePlan)
import System.Environment (getArgs)
import System.Exit (die)

main :: IO ()
main = do
  args <- getArgs

  case parsePlan args of
    Left err -> die err
    Right plan -> putStrLn (describePlan plan)