warning police

This commit is contained in:
Don Stewart 2005-08-19 02:09:20 +00:00
parent 2610a9cf58
commit fcc91a57ab

View File

@ -238,7 +238,7 @@ build src obj extra_opts = do
putStr $ show $ ghc : flags
#endif
(out,err) <- exec ghc flags -- this is a fork()
(_out,err) <- exec ghc flags -- this is a fork()
obj_exists <- doesFileExist obj -- sanity
return $ if not obj_exists && null err -- no errors, but no object?