{- LANGUAGE NamedFieldPuns #-}
module Main where

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

main :: IO ()
main = do
  getConfiguration
  >>= runReaderT (do
    blog <- Blog.get
    Dom.generate blog
    JSON.generate blog
  )