Fixed MakeManPage for new reader signature.

This commit is contained in:
John MacFarlane 2012-07-26 08:37:14 -07:00
parent 800e772d6e
commit 3053267280

View file

@ -15,7 +15,7 @@ import qualified Control.Exception as E
main = do
rmContents <- liftM toString $ B.readFile "README"
let (Pandoc meta blocks) = readMarkdown defaultParserState rmContents
let (Pandoc meta blocks) = readMarkdown def rmContents
let manBlocks = removeSect [Str "Wrappers"]
$ removeSect [Str "Pandoc's",Space,Str "markdown"] blocks
let syntaxBlocks = extractSect [Str "Pandoc's",Space,Str "markdown"] blocks