在Haskell中创建一个临时目录

Question

什么是在Haskell中安全创建临时目录的正确方法？System.IO提供了创建临时文件的方式，但我找不到任何可以创建临时目录的方法，不管是在System.Directory、System.Posix.Directory还是System.Posix.Temp中都没有。我是否忽略了某个函数，还是需要自己编写一个？如果需要编写，是否有需要避免的危险，就像创建临时文件一样？

- Paul Kuliniewicz

Answer 1

专门用于Unix系统的工作，Unixutils包含了这样一个函数：

withTemporaryDirectory :: FilePath -> (FilePath -> IO a) -> IO a

如果你需要它在Windows和Unix系统上都能正常工作，你需要使用temporary包。 它具有相同的功能，但类型签名略有不同：

withTemporaryDirectory :: FilePath -> String -> (FilePath -> IO a) -> IO a

- Don Stewart

---

这将返回新临时文件将被创建的目录（即通常为“/tmp”）。它实际上并不会创建一个临时目录。 - Travis Brown

@Travis ACK！withTemporaryDirectory 就是我想要的。 - Don Stewart

这很适合我想要的用法，因为它可以在我完成后自动清理目录。 - Paul Kuliniewicz

请注意，在Hackage上有一个名为temporary的临时包，其中包含这些函数。 （是的，这晚了一年，但这个问题很容易在谷歌搜索中出现） - Thomas M. DuBuisson

@ThomasM.DuBuisson 您应该将此作为答案重新发布，因为它似乎更加适当，因为它是平台无关的。 - Nikita Volkov

Answer 2

你可以查看Cabal源代码中的Distribution.Compat.TempFile模块来作为示例。它定义了createTempDirectory函数，如下所示（其中c_getpid和mkPrivateDir是依赖于平台的）：

createTempDirectory :: FilePath -> String -> IO FilePath
createTempDirectory dir template = do
  pid <- c_getpid
  findTempName pid
  where
    findTempName x = do
      let dirpath = dir </> template ++ show x
      r <- try $ mkPrivateDir dirpath
      case r of
        Right _ -> return dirpath
        Left  e | isAlreadyExistsError e -> findTempName (x+1)
                | otherwise              -> ioError e

Cabal定义此函数的事实表明，没有一种标准的方法来完成它。

- Travis Brown

---

现在，该功能已被分解为 temporary 包。 - bgamari

@bgamari 看起来 temporary 包被放弃了，Cabal 把这个函数拿回了。我能问一下发生了什么吗？ - Abastro

Answer 3

根据@Nikita Volkov的建议，我将@Thomas M. DuBuisson的评论发布为单独的答案：

使用temporary包。它提供了一个方便的跨平台API，用于使用临时文件和目录。临时文件和目录在使用后会自动删除。

- Yitz