hablo/src/Main.hs

{- LANGUAGE NamedFieldPuns #-}
module Main where

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

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