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 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
guessedName = fmap basenameOf mainModuleSrcPath
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