From ba3ba602ea5bd110a7c5353b4cd279d3d5880469 Mon Sep 17 00:00:00 2001
From: Alexander Krotov <ilabdsf@gmail.com>
Date: Wed, 24 Oct 2018 19:14:53 +0300
Subject: [PATCH] Use foldl' instead of maximum to account for empty lists
---
src/Text/Pandoc/Readers/JATS.hs | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
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