From 2e33bc5ac86c81f0c9ee823b4913bce776ba5a0d Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Wed, 11 Mar 2026 03:41:20 +0100
Subject: add Seq2 Blessings Text split2

---
 src/Blessings.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/Blessings.hs')

diff --git a/src/Blessings.hs b/src/Blessings.hs
index 67eecad..e860b1d 100644
--- a/src/Blessings.hs
+++ b/src/Blessings.hs
@@ -35,6 +35,15 @@ data Blessings a
   deriving (Eq, Show)
 
 
+cataBlessings :: Monoid a => (a -> r) -> (Pm -> r -> r) -> (r -> r -> r) -> Blessings a -> r
+cataBlessings plain sgr append = go
+  where
+    go (Plain s)      = plain s
+    go (SGR pm t)     = sgr pm (go t)
+    go (Append t1 t2) = append (go t1) (go t2)
+    go Empty          = plain mempty
+
+
 instance Foldable Blessings where
     foldMap f = \case
         Append t1 t2 -> foldMap f t1 <> foldMap f t2
-- 
cgit v1.2.3