From f002c73e764e553adc8bf3fad6ec00f5aa9f2456 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Domen=20Ko=C5=BEar?= Date: Sun, 1 Oct 2017 13:27:10 +0200 Subject: [PATCH] [DEVOPS-293] Fix segfault in cryptonite See upstream issue at https://github.com/haskell-crypto/cryptonite/issues/193 --- pkgs/cryptonite-segfault-blake.patch | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 pkgs/cryptonite-segfault-blake.patch diff --git a/pkgs/cryptonite-segfault-blake.patch b/pkgs/cryptonite-segfault-blake.patch new file mode 100644 index 00000000000..e5c3bfae8fb --- /dev/null +++ b/pkgs/cryptonite-segfault-blake.patch @@ -0,0 +1,13 @@ +diff --git a/Crypto/Hash/Blake2b.hs b/Crypto/Hash/Blake2b.hs +index c22c284..19c68ba 100644 +--- a/Crypto/Hash/Blake2b.hs ++++ b/Crypto/Hash/Blake2b.hs +@@ -85,7 +85,7 @@ instance HashAlgorithm Blake2b_512 where + foreign import ccall unsafe "cryptonite_blake2b_init" + c_blake2b_init :: Ptr (Context a) -> Word32 -> IO () + +-foreign import ccall "cryptonite_blake2b_update" ++foreign import ccall unsafe "cryptonite_blake2b_update" + c_blake2b_update :: Ptr (Context a) -> Ptr Word8 -> Word32 -> IO () + + foreign import ccall unsafe "cryptonite_blake2b_finalize"