@@ -36,7 +36,7 @@ import Control.Monad.State.Strict
3636import Data.Char (isDigit, isSpace, toUpper)
3737import Data.Default
3838import Data.Generics
39−import Data.List (intersperse)
39+import Data.List (foldl', intersperse)
4040import qualified Data.Map as Map
4141import Data.Maybe (maybeToList, fromMaybe)
4242import Data.Text (Text)
@@ -278,9 +278,7 @@ parseBlock (Elem e) =
278278 $ safeRead $ '0': filter (\x ->
279279 isDigit x || x == '.') w
280280 Nothing -> 0 :: Double
281− let numrows = case bodyrows of
282− [] -> 0
283− xs -> maximum $ map length xs
281+ let numrows = foldl' max 0 $ map length bodyrows
284282 let aligns = case colspecs of
285283 [] -> replicate numrows AlignDefault
286284 cs -> map toAlignment cs