From 0c2a60e854f725b37ae29be435b535e542ecff2c Mon Sep 17 00:00:00 2001 From: tv Date: Sat, 6 Oct 2018 21:41:36 +0200 Subject: Blessings: add Semigroup instance --- src/Blessings.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src') 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