summaryrefslogtreecommitdiff
path: root/Network/CryptoConditions/Json.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Network/CryptoConditions/Json.hs')
-rw-r--r--Network/CryptoConditions/Json.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Network/CryptoConditions/Json.hs b/Network/CryptoConditions/Json.hs
index b8e7754..44a17f5 100644
--- a/Network/CryptoConditions/Json.hs
+++ b/Network/CryptoConditions/Json.hs
@@ -15,6 +15,7 @@ module Network.CryptoConditions.Json
) where
+import Control.Monad.Fail (MonadFail)
import Crypto.PubKey.Ed25519
import Crypto.Error
@@ -95,7 +96,7 @@ toJsonAnon cond =
-- Util
--
-fromB64 :: Text -> Parser ByteString
+fromB64 :: MonadFail m => Text -> m ByteString
fromB64 = either fail pure . b64DecodeStripped . encodeUtf8