LitTxt.hs

module LitTxt (toHTML,toHTMLblock) where

import MyDoc
import ParseMyDoc
import MyDoc2HTML
import Text.PrettyPrint(render)
import EnvM (withEnv)


toHTML = render . withEnv html . ppMyDoc . parse
toHTMLblock = render . withEnv htmlblock . ppMyDoc . parse