Blessings: add Foldable instancev1.3.0

1 files changed, 8 insertions, 0 deletions

diff --git a/src/Blessings.hs b/src/Blessings.hs
index 3c6b94f..21fe3d8 100644
--- a/src/Blessings.hs
+++ b/src/Blessings.hs
@@ -20,6 +20,14 @@ data Blessings a
   deriving (Eq, Show)
 
 
+instance Foldable Blessings where
+    foldMap f = \case
+        Append t1 t2 -> foldMap f t1 <> foldMap f t2
+        Plain s -> f s
+        SGR _ t -> foldMap f t
+        Empty -> mempty
+
+
 instance Functor Blessings where
     fmap f = \case
         Append t1 t2 -> Append (fmap f t1) (fmap f t2)