mdToHtml :: String -> String
mdToHtml src = case md of
    Left  _ -> "<h3>Error! Sorry...</h3>"
    Right p -> writeHtmlString def p
  where md = readMarkdown def src
mdToHtml :: String -> String
mdToHtml src = case md of
    Left  _ -> "<h3>Error! Sorry...</h3>"
    Right p -> writeHtmlString def p
  where md = readMarkdown def src
mdToHtml src = case md of
    Left  _ -> "<h3>Error! Sorry...</h3>"
    Right p -> writeHtmlString def p
  where md = readMarkdown def src