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: slightly faster hashing

Browse Source
This commit is contained in:
Vaibhav Sagar 2018-09-30 13:38:29 -04:00
parent 08ce33340f
commit c9c923b228
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,6 +21,7 @@ import qualified Crypto.Hash as Hash
import Crypto.Hash.Algorithms (SHA256)
import qualified Crypto.MAC.HMAC as HMAC
import Data.Aeson
import qualified Data.ByteArray.Encoding as Encoding
import Data.ByteString (ByteString)
import qualified Data.ByteString.Char8 as Char
import qualified Data.ByteString.Lazy as LBS
@ -336,7 +337,9 @@ sendMessage debug hmackey sock msg = do
-- Compute the HMAC SHA-256 signature of a bytestring message.
hmac :: ByteString -> ByteString
hmac = Char.pack . show . (HMAC.hmacGetDigest :: HMAC.HMAC SHA256 -> Hash.Digest SHA256) . HMAC.hmac hmackey
hmac = (Encoding.convertToBase Encoding.Base16 :: Hash.Digest SHA256 -> ByteString)
. HMAC.hmacGetDigest
. HMAC.hmac hmackey
-- Pieces of the message.
hdr = header msg