SHA256 Yesod 中上传的文件 - 使用 Conduit 和 Data.Digest.Pure.SHA

Question

我正在使用 yesod 处理文件上传，并希望将上传的文件保存到我的服务器上的文件中，该文件的名称为内容的 SHA256。

我认为处理程序级函数看起来像：

fileMove fInfo (basePath <> generateSha fInfo)

这个问题的中心是如何写generateSha :: FileInfo -> String。

我看到了一些可能有用的功能：

fileSource :: MonadResource m => FileInfo -> Source m ByteString
sha256Incremental :: Decoder SHA256State
completeSha256Incremental :: Decoder SHA256State -> Int -> Digest SHA256State
showDigest :: Digest t-> String

但我不确定一些事情：

1. 如何在导管中接线。理想情况下，我会让它流式传输文件。
2. 使用 SHA 接口逐步建立散列。我可以很容易地获得空字符串的 SHA256，但我不确定如何添加值。大概是解码器类型中隐藏的东西吧？
3. completeSha256Incremental 的 Int 参数是什么。

有人可以指出正确的方向吗？

Answer 1

这只是部分答案。我现在陷入了阴谋集团的地狱，无法安装 sha-streams 以查看是否正常。

按如下方式逐步计算 SHA256：

sha256FromChunks :: [ByteString] -> Digest SHA256State
sha256FromChunks cs = completeSHA256Incremental $
                          foldl pushChunk sha256Incremental cs

pushChunk 来自Data.Binary.Get。这向您展示了所有函数调用如何组合在一起，但对于流式场景来说不是很实用。

要将其与管道一起使用，您需要将其转换为 Sink。