{- LANGUAGE NamedFieldPuns #-}
module Main where

import Arguments (configuration)
import qualified Blog (get)
import qualified Dom (generate)
import qualified JSON (generate)
import Control.Monad.Reader (runReaderT)

main :: IO ()
main = do
  configuration
  >>= Blog.get
  >>= runReaderT (do
    Dom.generate
    JSON.generate
  )