From ba3ba602ea5bd110a7c5353b4cd279d3d5880469 Mon Sep 17 00:00:00 2001 From: Alexander Krotov Date: Wed, 24 Oct 2018 19:14:53 +0300 Subject: Use foldl' instead of maximum to account for empty lists --- src/Text/Pandoc/Readers/JATS.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/JATS.hs b/src/Text/Pandoc/Readers/JATS.hs index 695c86b5d..110d76a59 100644 --- a/src/Text/Pandoc/Readers/JATS.hs +++ b/src/Text/Pandoc/Readers/JATS.hs @@ -36,7 +36,7 @@ import Control.Monad.State.Strict import Data.Char (isDigit, isSpace, toUpper) import Data.Default import Data.Generics -import Data.List (intersperse) +import Data.List (foldl', intersperse) import qualified Data.Map as Map import Data.Maybe (maybeToList, fromMaybe) import Data.Text (Text) @@ -278,9 +278,7 @@ parseBlock (Elem e) = $ safeRead $ '0': filter (\x -> isDigit x || x == '.') w Nothing -> 0 :: Double - let numrows = case bodyrows of - [] -> 0 - xs -> maximum $ map length xs + let numrows = foldl' max 0 $ map length bodyrows let aligns = case colspecs of [] -> replicate numrows AlignDefault cs -> map toAlignment cs -- cgit v1.2.3