module Main where

import qualified Data.Text                       as T
import qualified Data.Text.IO                    as T

import           CMark
import           Control.DeepSeq
import           Text.Commonmark.Html
import           Text.Commonmark.Syntax
import           Text.Commonmark.TestUtils.CMark

main :: IO ()
main = do
    file <- T.readFile "benchinput.md"
    putStrLn "finished reading"
    let node = commonmarkToNode [optNormalize] file
        doc  = nodeToDoc node
        html = docToHtml doc
    doc  `deepseq` putStrLn "evaluated doc"
    html `deepseq` putStrLn "evaluated html"