hablo/src/Main.hs

module Main where

import Arguments (Arguments(..), version)
import qualified Arguments (get)
import qualified Blog (build)
import Control.Monad.Reader (runReaderT)
import qualified HTML (generate)
import qualified JS (generate)
import qualified RSS (generate)
import System.Exit (exitSuccess)

main :: IO ()
main = do
  arguments <- Arguments.get
  case arguments of
    Version -> (putStrLn version) >> exitSuccess
    config@(BlogConfig {}) -> Blog.build config >>= runReaderT (do
        HTML.generate
        JS.generate
        RSS.generate
      )