Commit a3b6b112 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Create temp files in dist, since it is now guaranteed to exist

parent db4a4f48
......@@ -562,7 +562,7 @@ hsc2hsProgram = (simpleProgram "hsc2hs") {
case maybeVersion of
Nothing -> return Nothing
Just version ->
withTempFile "." "hsc" $ \hsc -> do
withTempFile "dist" "hsc" $ \hsc -> do
writeFile hsc ""
(str, _) <- rawSystemStdout' verbosity path [hsc, "--cflag=--version"]
try $ removeFile (dropExtension hsc ++ "_hsc_make.c")
......
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