From 0c2a60e854f725b37ae29be435b535e542ecff2c Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Sat, 6 Oct 2018 21:41:36 +0200
Subject: Blessings: add Semigroup instance

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

diff --git a/src/Blessings.hs b/src/Blessings.hs
index 7565299..823f467 100644
--- a/src/Blessings.hs
+++ b/src/Blessings.hs
@@ -27,6 +27,10 @@ instance Functor Blessings where
         Empty -> Empty
 
 
+instance Semigroup (Blessings a) where
+    (<>) = Append
+
+
 instance Monoid (Blessings a) where
     mappend = Append
     mempty = Empty
-- 
cgit v1.2.3