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
|
main = do
|
||||||
rmContents <- liftM toString $ B.readFile "README"
|
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"]
|
let manBlocks = removeSect [Str "Wrappers"]
|
||||||
$ removeSect [Str "Pandoc's",Space,Str "markdown"] blocks
|
$ removeSect [Str "Pandoc's",Space,Str "markdown"] blocks
|
||||||
let syntaxBlocks = extractSect [Str "Pandoc's",Space,Str "markdown"] blocks
|
let syntaxBlocks = extractSect [Str "Pandoc's",Space,Str "markdown"] blocks
|
||||||
|
|
Loading…
Reference in a new issue