diff options
Diffstat (limited to 'Val.hs')
-rw-r--r-- | Val.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |