From d68b300dca90487e5d0d1dcde3961d8b8a25c18f Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Wed, 6 Mar 2019 10:49:59 -0800
Subject: Fixed mistake in filterIpynbOutput (prefer lower, not higher rank!)
---
src/Text/Pandoc/Shared.hs | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
(limited to 'src/Text')
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index a4f4927f9..efd4fcfde 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -113,6 +113,7 @@ import qualified Data.Text as T
import Data.Version (showVersion)
import Network.URI (URI (uriScheme), escapeURIString, parseURI)
import Paths_pandoc (version)
+import Safe (minimumDef)
import System.Directory
import System.FilePath (isPathSeparator, splitDirectories)
import qualified System.FilePath.Posix as Posix
@@ -683,11 +684,9 @@ filterIpynbOutput mode = walk go
| fmt == Format "ipynb"
-> Div (ident, ("output":os), kvs) bs
| otherwise -> Div (ident, ("output":os), kvs) $
- [ b | b <- bs, rank b == highestRank ]
+ [ b | b <- bs, rank b == lowestRank ]
where
- highestRank = case map rank bs of
- [] -> 0
- xs -> maximum xs
+ lowestRank = minimumDef 0 $ map rank bs
rank (RawBlock (Format "html") _)
| fmt == Format "html" = (1 :: Int)
| fmt == Format "markdown" = 2
--
cgit v1.2.3