3 files changed, 7 insertions(+), 3 deletions(-)

M CHANGELOG.md
M src/Data/Text/ParagraphLayout/Internal/Plain.hs
M src/Data/Text/ParagraphLayout/Internal/TextContainer.hs

@@ 1,5 1,9 @@
 # Revision history for Balkón
 
+## 0.3.0.1 -- TBD
+
+* Fixed compatibility with base < 4.15.
+
 ## 0.3.0.0 -- 2023-04-13
 
 * Added partial support for bidirectional text

@@ 87,7 87,7 @@ layoutLines ::
     Int32 -> NonEmpty (WithSpan Run) -> NonEmpty [WithSpan PF.ProtoFragment]
 layoutLines maxWidth runs = case nonEmpty rest of
         -- Everything fits. We are done.
-        Nothing -> NonEmpty.singleton fitting
+        Nothing -> fitting :| []
         -- Something fits, the rest goes on the next line.
         Just rest' -> fitting <| layoutLines maxWidth rest'
     where

@@ 116,7 116,7 @@ trimTextsStartPreserve :: SeparableTextContainer a =>
     (Char -> Bool) -> NonEmpty a -> NonEmpty a
 trimTextsStartPreserve p tcs =
     case nonEmpty $ trimTextsStart p $ NonEmpty.toList tcs of
-        Nothing -> NonEmpty.singleton $ truncateText $ NonEmpty.head tcs
+        Nothing -> truncateText (NonEmpty.head tcs) :| []
         Just out -> out
 
 -- | Treat a list of text containers as a contiguous sequence,


@@ 137,7 137,7 @@ trimTextsEndPreserve :: SeparableTextContainer a =>
     (Char -> Bool) -> NonEmpty a -> NonEmpty a
 trimTextsEndPreserve p tcs =
     case nonEmpty $ trimTextsEnd p $ NonEmpty.toList tcs of
-        Nothing -> NonEmpty.singleton $ truncateText $ NonEmpty.head tcs
+        Nothing -> truncateText (NonEmpty.head tcs) :| []
         Just out -> out
 
 trimTextsStart' :: SeparableTextContainer a => (Char -> Bool) -> [a] -> [a]