17 lines
427 B
Haskell
17 lines
427 B
Haskell
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 [])
|