Parsing.GridTable: remove use of unsafe function `last`

1 files changed, 3 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Parsing/GridTable.hs b/src/Text/Pandoc/Parsing/GridTable.hs
index b8ae26140..9db91fba7 100644
--- a/src/Text/Pandoc/Parsing/GridTable.hs
+++ b/src/Text/Pandoc/Parsing/GridTable.hs
@@ -26,6 +26,7 @@ where
 import Control.Monad (guard)
 import Data.List (transpose)
 import Data.Text (Text)
+import Safe (lastDef)
 import Text.Pandoc.Options (ReaderOptions (readerColumns))
 import Text.Pandoc.Builder (Blocks)
 import Text.Pandoc.Definition
@@ -263,13 +264,13 @@ toHeaderRow = \case
   NoNormalization -> \l -> [toRow l | not (null l)]
   NormalizeHeader -> \l -> [toRow l | not (null l) && not (all null l)]
 
--- Calculate relative widths of table columns, based on indices
+-- | Calculate relative widths of table columns, based on indices
 widthsFromIndices :: Int      -- Number of columns on terminal
                   -> [Int]    -- Indices
                   -> [Double] -- Fractional relative sizes of columns
 widthsFromIndices _ [] = []
 widthsFromIndices numColumns' indices =
-  let numColumns = max numColumns' (if null indices then 0 else last indices)
+  let numColumns = max numColumns' (lastDef 0 indices)
       lengths' = zipWith (-) indices (0:indices)
       lengths  = reverse $
                  case reverse lengths' of