From da5d16b9568b1a15583eb5e7bd2d6f413871f6da Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Tue, 14 Jul 2020 19:34:20 -0700
Subject: fix type constraint: Monad -> MonadFail

---
 Val.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Val.hs b/Val.hs
index f024b9d..5c52c82 100644
--- a/Val.hs
+++ b/Val.hs
@@ -42,7 +42,7 @@ instance FromJSON Val where
 b64 :: B.ByteString -> T.Text
 b64 = T.decodeUtf8 . B64.encode
 
-unb64 :: Monad m => T.Text -> m B.ByteString
+unb64 :: MonadFail m => T.Text -> m B.ByteString
 unb64 t = either
 	(\_ -> fail "bad base64 data")
 	return
-- 
cgit v1.2.3