dockercook-0.1.0.0: src/prog/Main.hs

module Main where

import Cook.ArgParse
import Cook.Build
import Cook.Clean
import Options.Applicative

runProg :: CookCmd -> IO ()
runProg cmd =
    case cmd of
      CookBuild buildCfg ->
          cookBuild buildCfg
      CookClean stateDir daysToKeep ->
          cookClean stateDir daysToKeep
      CookList ->
          do putStrLn "Available commands:"
             putStrLn "- cook"
             putStrLn "- clean"

main :: IO ()
main =
    execParser (info argParse idm) >>= runProg