Question

在学习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))

Haskell Cryptonite HMAC SHA到JSON

0 个答案: