diff options
| author | tv <tv@krebsco.de> | 2022-01-09 22:41:19 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2022-01-09 22:42:22 +0100 |
| commit | 4ce648a9eeeda9167ee57c2185911e81d45883b6 (patch) | |
| tree | a1315e1098838196dc331b01f43491b3ba086f63 /src | |
| parent | 09335855f6d44d65747602781642fc931a88e222 (diff) | |
Blessings: simplify <>
Diffstat (limited to 'src')
| -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 |