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