如何在Haskell中创建文件及其父目录？

Question

我想通过非平凡的路径将内容写入文件，并创建所有父目录（如果不存在）。所以下面的代码：

mkFile "foo/bar/baz/quux.txt"

将创建所有目录foo/，foo/bar/和foo/bar/baz/（如果不存在，当然还会创建文件quux.txt）。实现这种功能的最简单方法是什么？理想情况下，我希望看到仅使用directory和filepath库的解决方案。

Answer 1

我正在尝试找到最简单的方法，但找不到任何方法。唯一的方法是根据您的需求实现我们自己的功能。幸运的是，这仅使用System.Directory和System.FilePath.Posix库。

import Prelude

import System.Directory (createDirectoryIfMissing)
import System.FilePath.Posix (takeDirectory)

main :: IO ()
main = createAndWriteFile "foo/bar/baz/quux.txt" "something"

createAndWriteFile :: FilePath -> String -> IO ()
createAndWriteFile path content = do
  createDirectoryIfMissing True $ takeDirectory path

  writeFile path content

下面是基于上面代码的结果。

foo
└── bar
    └── baz
        └── quux.txt

您可以根据需要编辑代码。