Haskell Cryptonite HMAC SHA到JSON

时间:2017-02-25 17:11:01

标签: haskell cryptography sha

在学习haskell时,我给自己创建了一个SHA HMAC并将其作为文本返回的挑战。

我终于有了工作。 我想知道是否有更好的方式来写我所做的。我正在使用cryptonite。我的示例中的text函数来自Spock Webframework,最后将json输出返回给浏览器。 我的问题更多地是关于json之后的所有事情。我可以缩短这个吗?更好看?或许你在想:他为什么不使用soandso包? 我是环境新手,所以如果你有任何建议让我的线更好或使用不同的包装,请告诉我。

这是我做的:

import Crypto.MAC.HMAC
import Crypto.Hash.Algorithms
import qualified Data.ByteString as B
import Data.Text (pack )

app :: SpockM Connection AppSession AppState ()
app = do 
    get ("json/id") $ do
        json . pack $ show $ (hmacGetDigest $ (hmac ("MySecret"::B.ByteString) ("Somethin To Hash"::B.ByteString) ::HMAC SHA256))

0 个答案:

没有答案