module Main

import SSG.Djot
import SSG.HTML

import System
import System.File

main : IO ()
main = do
  Right contents <- readFile "./test.dj"
    | Left err => do
      printLn err
      exitFailure
  let (_ ** blocks) = block contents
  let html = renderDocument blocks
  let output = render html
  putStrLn output