diff options
| author | Yann Herklotz <git@yannherklotz.com> | 2019-05-21 15:25:10 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@yannherklotz.com> | 2019-05-21 15:25:10 +0100 |
| commit | 4aaa96066c1b8df14f36db99a2606eb3ddb1506f (patch) | |
| tree | 9d5bb49b79cf87f11db3148df0121977112a598f /src | |
| parent | d8dd3a04fd820fddc12d1ea46818ed1b1167e9ac (diff) | |
| download | verismith-4aaa96066c1b8df14f36db99a2606eb3ddb1506f.tar.gz verismith-4aaa96066c1b8df14f36db99a2606eb3ddb1506f.zip | |
Switch meaning of Semigroup
Diffstat (limited to 'src')
| -rw-r--r-- | src/VeriFuzz/Result.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/VeriFuzz/Result.hs b/src/VeriFuzz/Result.hs index 4d1f5b8..77aa5b3 100644 --- a/src/VeriFuzz/Result.hs +++ b/src/VeriFuzz/Result.hs @@ -42,7 +42,7 @@ data Result a b = Fail a deriving (Eq, Show) instance Semigroup (Result a b) where - Fail _ <> b = b + Pass _ <> a = a a <> _ = a instance (Monoid b) => Monoid (Result a b) where |