From 978ae55b2299f9c2bb186e753c2d89971350c83d Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sat, 28 Mar 2015 15:36:30 -0700
Subject: make-pandoc-man-pages:  fixed to build with new readMarkdown type.

---
 man/make-pandoc-man-pages.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/man/make-pandoc-man-pages.hs b/man/make-pandoc-man-pages.hs
index 65178a15b..60baff81e 100644
--- a/man/make-pandoc-man-pages.hs
+++ b/man/make-pandoc-man-pages.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE CPP #-}
 -- Create pandoc.1 man and pandoc_markdown.5 man pages from README
 import Text.Pandoc
+import Text.Pandoc.Error (handleError)
 import qualified Text.Pandoc.UTF8 as UTF8
 import Data.Char (toUpper)
 import Control.Monad
@@ -27,7 +28,7 @@ main = do
 
   unless (null ds1 && null ds2) $ do
     rmContents <- UTF8.readFile "README"
-    let (Pandoc meta blocks) = normalize $ readMarkdown def rmContents
+    let (Pandoc meta blocks) = normalize $ handleError $ 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
@@ -101,4 +102,3 @@ modifiedDependencies file dependencies = do
   depModTimes <- mapM getModificationTime dependencies
   let modified = zipWith (\dep time -> if time > fileModTime then Just dep else Nothing) dependencies depModTimes
   return $ catMaybes modified
-
-- 
cgit v1.2.3