From 3428248debb14066e7fb1ef216927d3d62e3a43a Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 18 Mar 2021 23:01:12 -0700 Subject: Use minimumDef instead of minimum (partial function). --- src/Text/Pandoc/Readers/Org/Blocks.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text/Pandoc/Readers/Org') diff --git a/src/Text/Pandoc/Readers/Org/Blocks.hs b/src/Text/Pandoc/Readers/Org/Blocks.hs index d1aff701e..c6f27118b 100644 --- a/src/Text/Pandoc/Readers/Org/Blocks.hs +++ b/src/Text/Pandoc/Readers/Org/Blocks.hs @@ -39,6 +39,7 @@ import Data.Functor (($>)) import Data.List (foldl', intersperse) import Data.Maybe (fromMaybe, isJust, isNothing) import Data.Text (Text) +import Safe (minimumDef) import qualified Data.Text as T import qualified Text.Pandoc.Builder as B @@ -542,8 +543,7 @@ include = try $ do in case (minlvl >>= safeRead :: Maybe Int) of Nothing -> blks Just lvl -> let levels = Walk.query headerLevel blks - -- CAVE: partial function in else - curMin = if null levels then 0 else minimum levels + curMin = minimumDef 0 levels in Walk.walk (shiftHeader (curMin - lvl)) blks headerLevel :: Block -> [Int] -- cgit v1.2.3