18 lines
318 B
Idris
18 lines
318 B
Idris
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
|