From 3053267280bfd7b255f3bf47480e4a8a97ec2915 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 26 Jul 2012 08:37:14 -0700
Subject: Fixed MakeManPage for new reader signature.

---
 MakeManPage.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/MakeManPage.hs b/MakeManPage.hs
index 9315e6989..517386e7c 100644
--- a/MakeManPage.hs
+++ b/MakeManPage.hs
@@ -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
-- 
cgit v1.2.3