2019-01-27 21:41:21 +01:00
|
|
|
module Main where
|
|
|
|
|
2019-02-02 17:26:07 +01:00
|
|
|
import qualified Arguments (get)
|
2019-02-03 22:56:21 +01:00
|
|
|
import qualified Blog (build)
|
2019-02-02 23:23:05 +01:00
|
|
|
import qualified HTML (generate)
|
2019-02-05 11:31:42 +01:00
|
|
|
import qualified JS (install)
|
2019-01-27 21:41:21 +01:00
|
|
|
import qualified JSON (generate)
|
|
|
|
import Control.Monad.Reader (runReaderT)
|
|
|
|
|
|
|
|
main :: IO ()
|
|
|
|
main = do
|
2019-02-02 17:26:07 +01:00
|
|
|
Arguments.get
|
2019-02-03 22:56:21 +01:00
|
|
|
>>= Blog.build
|
2019-01-27 21:41:21 +01:00
|
|
|
>>= runReaderT (do
|
2019-02-02 23:23:05 +01:00
|
|
|
HTML.generate
|
2019-01-29 23:08:38 +01:00
|
|
|
JSON.generate
|
2019-02-05 11:31:42 +01:00
|
|
|
JS.install
|
2019-01-27 21:41:21 +01:00
|
|
|
)
|