18 lines
499 B
Haskell
18 lines
499 B
Haskell
|
module JSON (
|
||
|
|
generate
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Arguments (Arguments(..), Configuration)
|
||
|
|
import Blog (Blog(..))
|
||
|
|
import Control.Monad.IO.Class (MonadIO(..))
|
||
|
|
import Control.Monad.Reader (MonadReader(..), ReaderT)
|
||
|
|
import Data.Aeson
|
||
|
|
import Data.ByteString.Lazy (writeFile)
|
||
|
|
import System.FilePath.Posix ((</>))
|
||
|
|
import Prelude hiding (writeFile)
|
||
|
|
|
||
|
|
generate :: Blog -> ReaderT Configuration IO ()
|
||
|
|
generate _ = do
|
||
|
|
path <- outputDir <$> ask
|
||
|
|
liftIO $ writeFile (path </> "articles.json") (encode $ object [])
|