diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-13 00:45:27 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-13 00:45:27 -0400 |
| commit | 7db480af0f944ca0e6c062cd1243c63ad7f878d1 (patch) | |
| tree | 21d7efe0b866dd7db1a5396a842652f49c676e84 /Utility/TempFile.hs | |
| parent | 94554782894ec6c26da3b46312d5d1d16d596458 (diff) | |
whitespace fixes
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 |