Fixed MakeManPage for new reader signature.
This commit is contained in:
parent
800e772d6e
commit
3053267280
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue