Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

make-pandoc-man-pages: fixed to build with new readMarkdown type.

Browse source
This commit is contained in:
John MacFarlane 2015-03-28 15:36:30 -07:00
parent 07cc0079f7
commit 978ae55b22
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
man/make-pandoc-man-pages.hs
View file

@ -1,6 +1,7 @@
{-# LANGUAGE CPP #-} {-# LANGUAGE CPP #-}
-- Create pandoc.1 man and pandoc_markdown.5 man pages from README -- Create pandoc.1 man and pandoc_markdown.5 man pages from README
import Text.Pandoc import Text.Pandoc
import Text.Pandoc.Error (handleError)
import qualified Text.Pandoc.UTF8 as UTF8 import qualified Text.Pandoc.UTF8 as UTF8
import Data.Char (toUpper) import Data.Char (toUpper)
import Control.Monad import Control.Monad
@ -27,7 +28,7 @@ main = do
unless (null ds1 && null ds2) $ do unless (null ds1 && null ds2) $ do
rmContents <- UTF8.readFile "README" 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"] 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
@ -101,4 +102,3 @@ modifiedDependencies file dependencies = do
depModTimes <- mapM getModificationTime dependencies depModTimes <- mapM getModificationTime dependencies
let modified = zipWith (\dep time -> if time > fileModTime then Just dep else Nothing) dependencies depModTimes let modified = zipWith (\dep time -> if time > fileModTime then Just dep else Nothing) dependencies depModTimes
return $ catMaybes modified return $ catMaybes modified