diff --git a/Crypto/Error/Types.hs b/Crypto/Error/Types.hs index 43366d9..b350f1f 100644 --- a/Crypto/Error/Types.hs +++ b/Crypto/Error/Types.hs @@ -49,6 +49,7 @@ instance Monad CryptoFailable where CryptoPassed a -> m2 a CryptoFailed e -> CryptoFailed e +{- throwCryptoError :: CryptoFailable a -> IO a throwCryptoError = undefined @@ -57,3 +58,4 @@ eitherCryptoError = undefined maybeCryptoError :: CryptoFailable a -> Maybe a maybeCryptoError = undefined +-}