1 files changed, 9 insertions, 0 deletions
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