module JSON (
    generate
  ) where

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 :: ReaderT Blog IO ()
generate = do
  path <- root <$> ask
  liftIO $ writeFile (path </> "articles.json") (encode $ object [])