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

export some crypto failable combinators

Browse Source
This commit is contained in:
Vincent Hanquez 2015-04-10 07:23:51 +01:00
parent 02533b43a7
commit 7d1b5117a8
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Crypto/Error/Types.hs
View File

@ -11,6 +11,8 @@
module Crypto.Error.Types module Crypto.Error.Types
( CryptoError(..) ( CryptoError(..)
, CryptoFailable(..) , CryptoFailable(..)
, throwCryptoErrorIO
, throwCryptoError
) where ) where
import qualified Control.Exception as E import qualified Control.Exception as E
@ -49,10 +51,15 @@ instance Monad CryptoFailable where
CryptoPassed a -> m2 a CryptoPassed a -> m2 a
CryptoFailed e -> CryptoFailed e CryptoFailed e -> CryptoFailed e
{- throwCryptoErrorIO :: CryptoFailable a -> IO a
throwCryptoError :: CryptoFailable a -> IO a throwCryptoErrorIO (CryptoFailed e) = E.throwIO e
throwCryptoError = undefined throwCryptoErrorIO (CryptoPassed r) = return r
throwCryptoError :: CryptoFailable a -> a
throwCryptoError (CryptoFailed e) = E.throw e
throwCryptoError (CryptoPassed r) = r
{-
eitherCryptoError :: CryptoFailable a -> Either CryptoError a eitherCryptoError :: CryptoFailable a -> Either CryptoError a
eitherCryptoError = undefined eitherCryptoError = undefined