From f73b0e142e48d1565358e6f25a83fa2d3806ad13 Mon Sep 17 00:00:00 2001 From: Vincent Hanquez Date: Wed, 8 Apr 2015 22:33:39 +0100 Subject: [PATCH] comments some work in progress piece of code with error handling --- Crypto/Error/Types.hs | 2 ++ 1 file changed, 2 insertions(+) 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 +-}