Commit 83e20783 authored by Jens Petersen's avatar Jens Petersen
Browse files

add a separator before the pid suffix to the tmpdir template

Currently Cabal just appends the pid to the package name-version
which makes it hard to see the actual package version number.
This patch just inserts a '-' between name-version and pid.
parent 0bbd64cd
......@@ -75,7 +75,7 @@ openTempFile tmp_dir template
(templateBase, templateExt) = splitExtension template
findTempName :: Int -> IO (FilePath, Handle)
findTempName x
= do let path = tmp_dir </> (templateBase ++ show x) <.> templateExt
= do let path = tmp_dir </> (templateBase ++ "-" ++ show x) <.> templateExt
b <- doesFileExist path
if b then findTempName (x+1)
else do hnd <- openFile path ReadWriteMode
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment