如何使用 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已完全处理，我可以将其写入磁盘吗？

一个小例子，说明您正在尝试使用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"

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

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