diff options
Diffstat (limited to 'Utility/TempFile.hs')
| -rw-r--r-- | Utility/TempFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/TempFile.hs b/Utility/TempFile.hs index 688baa491..6dbea693a 100644 --- a/Utility/TempFile.hs +++ b/Utility/TempFile.hs @@ -22,7 +22,7 @@ import System.FilePath viaTmp :: (FilePath -> String -> IO ()) -> FilePath -> String -> IO () viaTmp a file content = do pid <- getProcessID - let tmpfile = file ++ ".tmp" ++ show pid + let tmpfile = file ++ ".tmp" ++ show pid createDirectoryIfMissing True (parentDir file) a tmpfile content renameFile tmpfile file |