Skip to content

Instantly share code, notes, and snippets.

@masaedw

masaedw/PandocSample.hs

Created September 21, 2011 08:05
Show Gist options
  • Save masaedw/1231529 to your computer and use it in GitHub Desktop.
Save masaedw/1231529 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
PandocSample.hs
module Main where
import Text.Pandoc
import Prelude hiding (getContents, putStrLn)
import System.IO.UTF8
markdownToHtml :: String -> String
markdownToHtml =
(writeHtmlString defaultWriterOptions {writerReferenceLinks = True}) .
readMarkdown defaultParserState
main = getContents >>= putStrLn . markdownToHtml
Raw
sample.markdown

This is a header

This is a small header

body body body body body body

blockquote blockquote

  • list
  • list
  • list

aaaooolink

  1. list
  2. list
  3. list
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment