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 [])