16 lines
268 B
Idris
16 lines
268 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 parsed = djot contents
|
|
putStr . render . renderHtml $ parsed
|