warning police
This commit is contained in:
parent
2610a9cf58
commit
fcc91a57ab
@ -238,7 +238,7 @@ build src obj extra_opts = do
|
|||||||
putStr $ show $ ghc : flags
|
putStr $ show $ ghc : flags
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
(out,err) <- exec ghc flags -- this is a fork()
|
(_out,err) <- exec ghc flags -- this is a fork()
|
||||||
|
|
||||||
obj_exists <- doesFileExist obj -- sanity
|
obj_exists <- doesFileExist obj -- sanity
|
||||||
return $ if not obj_exists && null err -- no errors, but no object?
|
return $ if not obj_exists && null err -- no errors, but no object?
|
||||||
|
Loading…
x
Reference in New Issue
Block a user