Require safe >= 0.3.18 and remove cpp.
This commit is contained in:
parent
1da6208315
commit
f0e4b9cc3c
2 changed files with 1 additions and 6 deletions
|
@ -477,7 +477,7 @@ library
|
|||
parsec >= 3.1 && < 3.2,
|
||||
process >= 1.2.3 && < 1.7,
|
||||
random >= 1 && < 1.3,
|
||||
safe >= 0.3 && < 0.4,
|
||||
safe >= 0.3.18 && < 0.4,
|
||||
scientific >= 0.3 && < 0.4,
|
||||
skylighting >= 0.10.4.1 && < 0.11,
|
||||
skylighting-core >= 0.10.4.1 && < 0.11,
|
||||
|
|
|
@ -1,4 +1,3 @@
|
|||
{-# LANGUAGE CPP #-}
|
||||
{-# LANGUAGE OverloadedStrings #-}
|
||||
{-# LANGUAGE PatternGuards #-}
|
||||
{-# LANGUAGE ScopedTypeVariables #-}
|
||||
|
@ -97,11 +96,7 @@ parseLaTeX = do
|
|||
let doc' = doc bs
|
||||
let headerLevel (Header n _ _) = [n]
|
||||
headerLevel _ = []
|
||||
#if MIN_VERSION_safe(0,3,18)
|
||||
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
|
||||
adjustHeaders _ x = x
|
||||
let (Pandoc _ bs') =
|
||||
|
|
Loading…
Reference in a new issue