diff options
author | John MacFarlane <jgm@berkeley.edu> | 2019-03-06 10:49:59 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2019-03-06 10:49:59 -0800 |
commit | d68b300dca90487e5d0d1dcde3961d8b8a25c18f (patch) | |
tree | 3f14976fb2196953bec23ca16fe4812b851a65e1 /src/Text | |
parent | 5863e5c75da5dadc8ab92dac62ebc03d566d65b5 (diff) | |
download | pandoc-d68b300dca90487e5d0d1dcde3961d8b8a25c18f.tar.gz |
Fixed mistake in filterIpynbOutput (prefer lower, not higher rank!)
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/Shared.hs | 7 |
1 files changed, 3 insertions, 4 deletions
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 |