diff options
| author | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-24 19:14:53 +0300 |
|---|---|---|
| committer | Alexander Krotov <ilabdsf@gmail.com> | 2018-10-24 19:31:30 +0300 |
| commit | ba3ba602ea5bd110a7c5353b4cd279d3d5880469 (patch) | |
| tree | 342334d8dc9eb10da1a5111e7b47551ee07be46f /src/Text | |
| parent | f1c476fe3c98a8fd0fd9005ddf24fa1b0172a917 (diff) | |
| download | pandoc-ba3ba602ea5bd110a7c5353b4cd279d3d5880469.tar.gz | |
Use foldl' instead of maximum to account for empty lists
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/JATS.hs | 6 |
1 files 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 |