T.P.Readers.Docx.Util: use xml-lights's `onlyElems`...

...instead of defining it again.

1 files changed, 1 insertions, 7 deletions

diff --git a/src/Text/Pandoc/Readers/Docx/Util.hs b/src/Text/Pandoc/Readers/Docx/Util.hs
index 73f3dd9cc..88c1973f9 100644
--- a/src/Text/Pandoc/Readers/Docx/Util.hs
+++ b/src/Text/Pandoc/Readers/Docx/Util.hs
@@ -79,13 +79,7 @@ extractChildren el condition
   | otherwise = Just (modifiedElement, removedChildren)  -- Children removed, return Just
   where
     -- Separate the children based on the condition
-    (removedChildren, keptChildren) = partition condition (onlyElems' $ elContent el)
-
-    -- Helper function to filter only Element types from Content
-    onlyElems' :: [Content] -> [Element]
-    onlyElems' = foldr (\c acc -> case c of
-                                   Elem e -> e : acc
-                                   _      -> acc) []
+    (removedChildren, keptChildren) = partition condition (onlyElems $ elContent el)
 
     -- Reconstruct the element with the kept children
     modifiedElement = el { elContent = map Elem keptChildren }