18 lines
355 B
Haskell
18 lines
355 B
Haskell
|
{- 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
|
||
|
|
)
|