Commonmark.Extensions

{-# LANGUAGE ScopedTypeVariables #-}
import Commonmark
import Commonmark.Extensions
import Data.Text.IO as TIO
import Data.Text.Lazy.IO as TLIO

main :: IO ()
main = do
  let customSyntax =
         (mathSpec <> smartPunctuationSpec <> defaultSyntaxSpec)
  inp <- TIO.getContents
  res <- commonmarkWith customSyntax "stdin" inp
  case res of
    Left e                  -> error (show e)
    Right (html :: Html ()) -> TLIO.putStr $ renderHtml html