mirrors/IHaskell
1
0
Fork 0
mirror of https://github.com/IHaskell/IHaskell.git synced 2025-04-16 03:16:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

ipython-kernel: use cryptonite instead of SHA

Browse Source
This commit is contained in:
Vaibhav Sagar 2018-05-29 19:29:07 +08:00
parent 65ee129916
commit 673ad74b42
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ipython-kernel/ipython-kernel.cabal
View File

@ -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

6
ipython-kernel/src/IHaskell/IPython/ZeroMQ.hs
View File

@ -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