From d19cc38f116fbdc45ed6c0c97892ad6c18785990 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 11 Dec 2025 10:51:54 +0100
Subject: T.P.Shared: export hasLineBreaks.

[API change]

Formerly defined in the DocBook writer but more generally useful.
---
 src/Text/Pandoc/Shared.hs          | 13 +++++++++++++
 src/Text/Pandoc/Writers/DocBook.hs | 10 ----------
 2 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 2c748dc5f..657c95b71 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -56,6 +56,7 @@ module Text.Pandoc.Shared (
                      inlineListToIdentifier,
                      textToIdentifier,
                      isHeaderBlock,
+                     hasLineBreaks,
                      onlySimpleTableCells,
                      isTightList,
                      taskListItemFromAscii,
@@ -607,6 +608,18 @@ uniqueIdent exts title' usedIdents =
                      x  -> x
     numIdent n = baseIdent <> "-" <> tshow n
 
+-- | True if inlines include a LineBreak (possibly embedded), with the exception
+-- of line breaks in Notes.
+hasLineBreaks :: [Inline] -> Bool
+hasLineBreaks = getAny . query isLineBreak . walk removeNote
+  where
+    removeNote :: Inline -> Inline
+    removeNote (Note _) = Str ""
+    removeNote x        = x
+    isLineBreak :: Inline -> Any
+    isLineBreak LineBreak = Any True
+    isLineBreak _         = Any False
+
 -- | True if block is a Header block.
 isHeaderBlock :: Block -> Bool
 isHeaderBlock Header{} = True
diff --git a/src/Text/Pandoc/Writers/DocBook.hs b/src/Text/Pandoc/Writers/DocBook.hs
index 775a92bef..0e0f7cde8 100644
--- a/src/Text/Pandoc/Writers/DocBook.hs
+++ b/src/Text/Pandoc/Writers/DocBook.hs
@@ -344,16 +344,6 @@ blockToDocBook opts (Figure attr capt@(Caption _ caption) body) = do
              inTagsSimple "title" title $$
              mconcat mediaobjects
 
-hasLineBreaks :: [Inline] -> Bool
-hasLineBreaks = getAny . query isLineBreak . walk removeNote
-  where
-    removeNote :: Inline -> Inline
-    removeNote (Note _) = Str ""
-    removeNote x        = x
-    isLineBreak :: Inline -> Any
-    isLineBreak LineBreak = Any True
-    isLineBreak _         = Any False
-
 alignmentToString :: Alignment -> Text
 alignmentToString alignment = case alignment of
                                  AlignLeft    -> "left"
-- 
cgit v1.2.3