Commit 57d26da8 authored by krasimir's avatar krasimir
Browse files

[project @ 2005-10-29 18:13:52 by krasimir]

The guessed output file should have ".exe" extension on Windows. ld tends to
add .exe automatically if the output file doesn't have extension but if
we don't add the extension explicitly then the doesFileExists check in
DriverPipeline.link will fail.
parent 26f300ce
......@@ -365,7 +365,11 @@ guessOutputFile s = modifySession s $ \env ->
let isMain = (== mainModIs dflags) . ms_mod
[ms] <- return (filter isMain mod_graph)
ml_hs_file (ms_location ms)
#if defined(mingw32_HOST_OS)
guessedName = fmap (\fname -> basenameOf fname `joinFileExt` "exe") mainModuleSrcPath
#else
guessedName = fmap basenameOf mainModuleSrcPath
#endif
in
case outputFile dflags of
Just _ -> env
......
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