@@ -113,6 +113,7 @@ import qualified Data.Text as T
113113import Data.Version (showVersion)
114114import Network.URI (URI (uriScheme), escapeURIString, parseURI)
115115import Paths_pandoc (version)
116+import Safe (minimumDef)
116117import System.Directory
117118import System.FilePath (isPathSeparator, splitDirectories)
118119import qualified System.FilePath.Posix as Posix
@@ -683,11 +684,9 @@ filterIpynbOutput mode = walk go
683684 | fmt == Format "ipynb"
684685 -> Div (ident, ("output":os), kvs) bs
685686 | otherwise -> Div (ident, ("output":os), kvs) $
686− [ b | b <- bs, rank b == highestRank ]
687+ [ b | b <- bs, rank b == lowestRank ]
687688 where
688− highestRank = case map rank bs of
689− [] -> 0
690− xs -> maximum xs
689+ lowestRank = minimumDef 0 $ map rank bs
691690 rank (RawBlock (Format "html") _)
692691 | fmt == Format "html" = (1 :: Int)
693692 | fmt == Format "markdown" = 2