From 673ad74b427882d1f30d2934e38ef843186b9dfa Mon Sep 17 00:00:00 2001
From: Vaibhav Sagar <vaibhavsagar@gmail.com>
Date: Tue, 29 May 2018 19:29:07 +0800
Subject: [PATCH] ipython-kernel: use cryptonite instead of SHA

---
 ipython-kernel/ipython-kernel.cabal           | 5 +++--
 ipython-kernel/src/IHaskell/IPython/ZeroMQ.hs | 6 ++++--
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/ipython-kernel/ipython-kernel.cabal b/ipython-kernel/ipython-kernel.cabal
index 14378ded..e2e8a274 100644
--- a/ipython-kernel/ipython-kernel.cabal
+++ b/ipython-kernel/ipython-kernel.cabal
@@ -39,17 +39,18 @@ library
                        bytestring      ,
                        cereal          ,
                        containers      ,
+                       cryptonite      ,
                        directory       ,
                        temporary       ,
                        filepath        ,
                        process         ,
+                       memory          ,
                        mtl             ,
                        text            ,
                        transformers    ,
                        unordered-containers,
                        uuid            ,
-                       zeromq4-haskell ,
-                       SHA
+                       zeromq4-haskell
 
 -- Example program
 executable simple-calc-example
diff --git a/ipython-kernel/src/IHaskell/IPython/ZeroMQ.hs b/ipython-kernel/src/IHaskell/IPython/ZeroMQ.hs
index a17cbf17..6b29894b 100644
--- a/ipython-kernel/src/IHaskell/IPython/ZeroMQ.hs
+++ b/ipython-kernel/src/IHaskell/IPython/ZeroMQ.hs
@@ -17,12 +17,14 @@ module IHaskell.IPython.ZeroMQ (
 import           Control.Concurrent
 import           Control.Exception
 import           Control.Monad
+import qualified Crypto.Hash as Hash
+import           Crypto.Hash.Algorithms (SHA256)
+import qualified Crypto.MAC.HMAC as HMAC
 import           Data.Aeson
 import           Data.ByteString (ByteString)
 import qualified Data.ByteString.Char8 as Char
 import qualified Data.ByteString.Lazy as LBS
 import           Data.Char
-import           Data.Digest.Pure.SHA as SHA
 import           Data.Monoid ((<>))
 import qualified Data.Text.Encoding as Text
 import           System.ZMQ4 as ZMQ4 hiding (stdin)
@@ -336,7 +338,7 @@ sendMessage debug hmacKey socket message = do
 
     -- Compute the HMAC SHA-256 signature of a bytestring message.
     hmac :: ByteString -> ByteString
-    hmac = Char.pack . SHA.showDigest . SHA.hmacSha256 (LBS.fromStrict hmacKey) . LBS.fromStrict
+    hmac = Char.pack . show . (HMAC.hmacGetDigest :: HMAC.HMAC SHA256 -> Hash.Digest SHA256) . HMAC.hmac hmacKey
 
     -- Pieces of the message.
     head = header message