diff options
| -rw-r--r-- | src/Blessings.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Blessings.hs b/src/Blessings.hs index 450daa3..344fac2 100644 --- a/src/Blessings.hs +++ b/src/Blessings.hs @@ -47,8 +47,7 @@ instance Functor Blessings where instance Semigroup (Blessings a) where t <> Empty = t Empty <> t = t - Append t1 t2 <> Append t3 t4 = t1 <> t2 <> t3 <> t4 - Append t1 t2 <> t3 = t1 <> t2 <> t3 + Append t1 t2 <> t3 = Append t1 (t2 <> t3) t1 <> t2 = Append t1 t2 |