haskell - 如何使用 Conduit 保存文件？

Question

如何使用 conduit 的库保存文件？我查看了 conduit 的教程，但似乎找不到任何东西，这是我的用例:

main :: IO ()
main = do
  xxs  <- lines <$> (readFile filePath)
  sourceList xxs =$ pipe $$ saveFile

pipe :: Monad m => Conduit String m String
pipe = undefined

所以这里有两个问题:

1. 使用 lines 将字符串转换为列表是否有意义字符串，然后将其提供给 sourceList?

2. 我应该如何实现 saveFile 函数，以便当字符串xxs 已完全处理，我可以将其写入磁盘吗？

Answer 1

您尝试使用 conduit 库执行的操作的一个最小示例:

#!/usr/bin/env stack
{- stack
     --resolver lts-6.7
     --install-ghc
     runghc
     --package conduit-extra
     --package resourcet
     --package conduit
 -}

import Data.Conduit.Binary (sinkFile, sourceFile)
import Control.Monad.Trans.Resource
import Data.Conduit (($$), await, Conduit, (=$), yield)
import Data.Monoid ((<>))
import Control.Monad.IO.Class

myConduit = do
  str <- await
  case str of
    Just x -> do
              liftIO $ print "some processing"
              yield x
              myConduit
    Nothing -> return ()


saveFile :: FilePath -> FilePath -> IO ()
saveFile f1 f2 = runResourceT $ sourceFile f1 $$ myConduit =$ sinkFile f2

main :: IO ()                 
main = saveFile "test.txt" "atest.txt"

How should I implement the saveFile function so that when the strings xxs are fully processed, I can write it to disk?

您在 myConduit 函数中实现它。请注意，在您的示例中，您正在使用 readFile 函数调用，它将延迟读取文件。 Conduit 为读取和写入文件提供了它自己的抽象，您应该使用它。