@@ -36,7 +36,7 @@ import Control.Monad.State.Strict
36import Data.Char (isDigit, isSpace, toUpper)
36import Data.Char (isDigit, isSpace, toUpper)
37import Data.Default
37import Data.Default
38import Data.Generics
38import Data.Generics
39−import Data.List (intersperse)
39+import Data.List (foldl', intersperse)
40import qualified Data.Map as Map
40import qualified Data.Map as Map
41import Data.Maybe (maybeToList, fromMaybe)
41import Data.Maybe (maybeToList, fromMaybe)
42import Data.Text (Text)
42import Data.Text (Text)
@@ -278,9 +278,7 @@ parseBlock (Elem e) =
278 $ safeRead $ '0': filter (\x ->
278 $ safeRead $ '0': filter (\x ->
279 isDigit x || x == '.') w
279 isDigit x || x == '.') w
280 Nothing -> 0 :: Double
280 Nothing -> 0 :: Double
281− let numrows = case bodyrows of
281+ let numrows = foldl' max 0 $ map length bodyrows
283− xs -> maximum $ map length xs
284 let aligns = case colspecs of
282 let aligns = case colspecs of
285 [] -> replicate numrows AlignDefault
283 [] -> replicate numrows AlignDefault
286 cs -> map toAlignment cs
284 cs -> map toAlignment cs