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

Require safe >= 0.3.18 and remove cpp.

Browse source
This commit is contained in:
John MacFarlane 2021-03-18 21:37:56 -07:00
parent 1da6208315
commit f0e4b9cc3c
2 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
pandoc.cabal
View file

@ -477,7 +477,7 @@ library
parsec >= 3.1 && < 3.2, parsec >= 3.1 && < 3.2,
process >= 1.2.3 && < 1.7, process >= 1.2.3 && < 1.7,
random >= 1 && < 1.3, random >= 1 && < 1.3,
safe >= 0.3 && < 0.4, safe >= 0.3.18 && < 0.4,
scientific >= 0.3 && < 0.4, scientific >= 0.3 && < 0.4,
skylighting >= 0.10.4.1 && < 0.11, skylighting >= 0.10.4.1 && < 0.11,
skylighting-core >= 0.10.4.1 && < 0.11, skylighting-core >= 0.10.4.1 && < 0.11,

5
src/Text/Pandoc/Readers/LaTeX.hs
View file

@ -1,4 +1,3 @@
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE PatternGuards #-} {-# LANGUAGE PatternGuards #-}
{-# LANGUAGE ScopedTypeVariables #-} {-# LANGUAGE ScopedTypeVariables #-}
@ -97,11 +96,7 @@ parseLaTeX = do
let doc' = doc bs let doc' = doc bs
let headerLevel (Header n _ _) = [n] let headerLevel (Header n _ _) = [n]
headerLevel _ = [] headerLevel _ = []
#if MIN_VERSION_safe(0,3,18)
let bottomLevel = minimumBound 1 $ query headerLevel doc' let bottomLevel = minimumBound 1 $ query headerLevel doc'
#else
let bottomLevel = minimumDef 1 $ query headerLevel doc'
#endif
let adjustHeaders m (Header n attr ils) = Header (n+m) attr ils let adjustHeaders m (Header n attr ils) = Header (n+m) attr ils
adjustHeaders _ x = x adjustHeaders _ x = x
let (Pandoc _ bs') = let (Pandoc _ bs') =