hablo/src/Main.hs

{- 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
  )
Initial draft 2019-01-27 21:41:21 +01:00			`{- LANGUAGE NamedFieldPuns #-}`
			`module Main where`

Remove the option to generate into a directory other than the parent directory of the one containing the articles to get rid of the hassle of copying the markdown sources and simplify working with relative URLs during the generation process 2019-01-29 23:08:38 +01:00			`import Arguments (configuration)`
Initial draft 2019-01-27 21:41:21 +01:00			`import qualified Blog (get)`
			`import qualified Dom (generate)`
			`import qualified JSON (generate)`
			`import Control.Monad.Reader (runReaderT)`

			`main :: IO ()`
			`main = do`
Remove the option to generate into a directory other than the parent directory of the one containing the articles to get rid of the hassle of copying the markdown sources and simplify working with relative URLs during the generation process 2019-01-29 23:08:38 +01:00			`configuration`
			`>>= Blog.get`
Initial draft 2019-01-27 21:41:21 +01:00			`>>= runReaderT (do`
Remove the option to generate into a directory other than the parent directory of the one containing the articles to get rid of the hassle of copying the markdown sources and simplify working with relative URLs during the generation process 2019-01-29 23:08:38 +01:00			`Dom.generate`
			`JSON.generate`
Initial draft 2019-01-27 21:41:21 +01:00			`)`