Commit 1be0a244 authored by Joachim Breitner's avatar Joachim Breitner

Adjust util/GenerateManpage.hs to latest pandoc

parent 80ce3d35
Index: xmonad-0.11/util/GenerateManpage.hs
Index: xmonad/util/GenerateManpage.hs
===================================================================
--- xmonad-0.11.orig/util/GenerateManpage.hs 2013-01-01 02:31:47.000000000 +0100
+++ xmonad-0.11/util/GenerateManpage.hs 2013-02-17 17:01:53.186736898 +0100
@@ -26,6 +26,7 @@
--- xmonad.orig/util/GenerateManpage.hs 2015-08-19 16:35:34.888424481 +0200
+++ xmonad/util/GenerateManpage.hs 2015-08-19 16:36:29.285364470 +0200
@@ -1,3 +1,4 @@
+{-# LANGUAGE FlexibleContexts #-}
-- Unlike the rest of xmonad, this file is copyright under the terms of the
-- GPL.
@@ -26,6 +27,7 @@
import Text.Regex.Posix
import Data.Char
import Data.List
+import qualified Data.Set as Set
import Distribution.PackageDescription.Parse
import Distribution.Verbosity
@@ -68,9 +69,9 @@
@@ -68,9 +70,9 @@
`liftM` readFile "./XMonad/Config.hs"
let manHeader = unwords [".TH xmonad 1","\""++releaseDate++"\"",releaseName,"\"xmonad manual\""]
- writeOpts = defaultWriterOptions -- { writerLiterateHaskell = True }
+ writeOpts = def -- { writerLiterateHaskell = True }
- parsed <- readMarkdown defaultParserState { stateLiterateHaskell = True }
+ parsed <- readMarkdown def { readerExtensions = Set.insert Ext_literate_haskell pandocExtensions }
+ Right parsed <- readMarkdown def { readerExtensions = Set.insert Ext_literate_haskell pandocExtensions }
. unlines
. replace "___KEYBINDINGS___" keybindings
. lines
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment