Haskell'de geçici bir dizin oluşturun

Question

Haskell'de güvenli bir şekilde geçici bir dizin oluşturmanın uygun yolu nedir? System.IO geçici dosyaları oluşturmak için yollar sunar, ancak ne için ne de ne System.Directory, System.Posix.Directory, ne de System.Posix.Temp dizinleri için aynı şeyi yapan bir şey bulamıyorum. Benim baktığım bir işlev var mı yoksa kendim yazmam mı gerekiyor?

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

durumunda: (? Geçici dosyaları oluşturma ile var gibi Ve eğer öyleyse, önlemek için herhangi bir tehlike var) Unix sistemleri ile özellikle çalışma için

Answer 1

, Unixutils paket böyle bir işlev içerir Hem Windows hem de Unix sistemlerinde çalışmak için ihtiyacınız var, bunun yerine geçici paketi kullanmak isteyeceksiniz. Bu biraz daha farklı bir tip imzasıyla aynı işlevi vardır:

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

Answer 2

Bir örnek Cabal kaynağının Distribution.Compat.TempFile modülünün bakabilir. O (c_getpid ve mkPrivateDir platforma özel durumda) aşağıdaki gibi createTempDirectory tanımlar:

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 bu işlevi tanımlar gerçeği bunu yapmak için standart bir yolu yoktur düşündürmektedir.

@Nikita Volkov tarafından önerildiği gibi

Answer 3

, ben ayrı bir cevap olarak @Thomas M. DUBUISSON ait yorumlar göndererek ediyorum:

temporary paketini kullanın. Geçici dosyaları ve dizinleri kullanmak için uygun bir platform bağımsız API sağlar. Geçici dosyalar ve dizinler kullanımdan sonra otomatik olarak silinir.