@@ -1,3 +1,4 @@
1+{-# LANGUAGE CPP #-}
12{-# LANGUAGE NoImplicitPrelude #-}
23{-# LANGUAGE FlexibleInstances #-}
34{-# LANGUAGE MultiParamTypeClasses #-}
@@ -38,7 +39,6 @@ import Data.Maybe (fromMaybe, maybeToList)
3839import qualified Data.Set as Set
3940import Data.Text (Text)
4041import qualified Data.Text as T
41−import Safe (minimumDef)
4242import System.FilePath (addExtension, replaceExtension, takeExtension)
4343import Text.Pandoc.BCP47 (Lang (..), renderLang)
4444import Text.Pandoc.Builder
@@ -62,6 +62,7 @@ import qualified Text.Pandoc.Translations as Translations
6262import Text.Pandoc.Walk
6363import qualified Text.Pandoc.Builder as B
6464import qualified Data.Text.Normalize as Normalize
65+import Safe
6566
6667-- for debugging:
6768-- import Text.Pandoc.Extensions (getDefaultExtensions)
@@ -89,7 +90,11 @@ parseLaTeX = do
8990 let doc' = doc bs
9091 let headerLevel (Header n _ _) = [n]
9192 headerLevel _ = []
93+#if MIN_VERSION_safe(0,3,18)
94+ let bottomLevel = minimumBound 1 $ query headerLevel doc'
95+#else
9296 let bottomLevel = minimumDef 1 $ query headerLevel doc'
97+#endif
9398 let adjustHeaders m (Header n attr ils) = Header (n+m) attr ils
9499 adjustHeaders _ x = x
95100 let (Pandoc _ bs') =