mad/byg/src/Main.hs

module Main where

import Types (Dependency)
import qualified DependencyRunner as DR
import qualified Types.Dependency as D
import SiteGenerator (generateSite)
import DependencyGenerator (evalDepGenM)

import System.Environment (getArgs)
import qualified Data.Text.IO as T

dependencies :: [Dependency]
dependencies = evalDepGenM generateSite

main :: IO ()
main = do
  args <- getArgs
  case args of
    ["run"] ->
      DR.runDepRunMIO $ DR.runDeps dependencies
    ["tree"] ->
      T.putStr $ D.formatDependencyTrees dependencies
    _ ->
      error "unexpected arguments"