summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'dev-haskell/rsa/files/rsa-2.3.1-p1-ghc-8.8.patch')
-rw-r--r--dev-haskell/rsa/files/rsa-2.3.1-p1-ghc-8.8.patch19
1 files changed, 19 insertions, 0 deletions
diff --git a/dev-haskell/rsa/files/rsa-2.3.1-p1-ghc-8.8.patch b/dev-haskell/rsa/files/rsa-2.3.1-p1-ghc-8.8.patch
new file mode 100644
index 00000000000..2c985b3b5f6
--- /dev/null
+++ b/dev-haskell/rsa/files/rsa-2.3.1-p1-ghc-8.8.patch
@@ -0,0 +1,19 @@
+commit 8d867a693f91406f9b45e24d79a0637013c0e272
+Author: Ollie Charles <ollie@ocharles.org.uk>
+Date: Wed Sep 18 14:48:23 2019 +0100
+
+ Update Pure.hs
+
+diff --git a/src/Codec/Crypto/RSA/Pure.hs b/src/Codec/Crypto/RSA/Pure.hs
+index 8e0f483..a69907d 100644
+--- a/src/Codec/Crypto/RSA/Pure.hs
++++ b/src/Codec/Crypto/RSA/Pure.hs
+@@ -111,7 +111,7 @@ instance Binary PrivateKey where
+ d <- os2ip `fmap` getLazyByteString (fromIntegral (public_size pub))
+ return (PrivateKey pub d 0 0 0 0 0)
+
+-failOnError :: (Monad m, Show a) => Either a b -> m b
++failOnError :: (MonadFail m, Show a) => Either a b -> m b
+ failOnError (Left e) = fail (show e)
+ failOnError (Right b) = return b
+