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 parsed = djot contents
  putStr . render . renderHtml $ parsed