haskell/cryptonite
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[error] make CryptoFailable an instance of Show and Eq if possible

Browse Source
This commit is contained in:
Vincent Hanquez 2015-06-01 05:59:25 +01:00
parent 1d383a3d12
commit e9c812e4fd
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Crypto/Error/Types.hs
View File

@ -49,6 +49,14 @@ data CryptoFailable a =
CryptoPassed a
| CryptoFailed CryptoError
instance Show a => Show (CryptoFailable a) where
show (CryptoPassed a) = "CryptoPassed " ++ show a
show (CryptoFailed err) = "CryptoFailed " ++ show err
instance Eq a => Eq (CryptoFailable a) where
(==) (CryptoPassed a) (CryptoPassed b) = a == b
(==) (CryptoFailed e1) (CryptoFailed e2) = e1 == e2
(==) _ _ = False
instance Functor CryptoFailable where
fmap f (CryptoPassed a) = CryptoPassed (f a)
fmap _ (CryptoFailed r) = CryptoFailed r