Amend inefficiency in splitMath

Closes #445
lierdakil · Aug 31, 2024 · 69eba7f · 69eba7f
1 parent f15f77c
commit 69eba7f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib-internal/Text/Pandoc/CrossRef/References/Blocks/Math.hs b/lib-internal/Text/Pandoc/CrossRef/References/Blocks/Math.hs
@@ -81,7 +81,8 @@ replaceEqn eqTemplate (label, _, attrs) eq = do
 
 splitMath :: [Block] -> [Block]
 splitMath (Para ils:xs)
-  | length ils > 1 = map Para (split [] [] ils) <> xs
+  | _:_:_ <- ils -- at least two elements
+  = map Para (split [] [] ils) <> xs
   where
     split res acc [] = reverse (reverse acc : res)
     split res acc (x@(Span _ [Math DisplayMath _]):ys) =