hablo/src/Main.hs

18 lines
335 B
Haskell
Raw Normal View History

2019-01-27 21:41:21 +01:00
{- LANGUAGE NamedFieldPuns #-}
module Main where
import qualified Arguments (get)
2019-01-27 21:41:21 +01:00
import qualified Blog (get)
import qualified HTML (generate)
2019-01-27 21:41:21 +01:00
import qualified JSON (generate)
import Control.Monad.Reader (runReaderT)
main :: IO ()
main = do
Arguments.get
>>= Blog.get
2019-01-27 21:41:21 +01:00
>>= runReaderT (do
HTML.generate
JSON.generate
2019-01-27 21:41:21 +01:00
)