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

Derive Show instance for CryptoFailable

Browse Source 
Fixes #50

The derived instances use precedences to decide when
parentheses are appropriate.
This commit is contained in:
Eric Mertens 2016-07-28 14:02:36 -07:00
parent 18a9634bb7
commit 5b8ae08701
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Crypto/Error/Types.hs
View File

@ -52,10 +52,8 @@ instance E.Exception CryptoError
data CryptoFailable a = data CryptoFailable a =
CryptoPassed a CryptoPassed a
| CryptoFailed CryptoError | CryptoFailed CryptoError
deriving (Show)
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 instance Eq a => Eq (CryptoFailable a) where
(==) (CryptoPassed a) (CryptoPassed b) = a == b (==) (CryptoPassed a) (CryptoPassed b) = a == b
(==) (CryptoFailed e1) (CryptoFailed e2) = e1 == e2 (==) (CryptoFailed e1) (CryptoFailed e2) = e1 == e2