projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
'have_object' isn't needed in a typed environment.
[ghc-hetmet.git]
/
ghc
/
compiler
/
main
/
DriverPipeline.hs
diff --git
a/ghc/compiler/main/DriverPipeline.hs
b/ghc/compiler/main/DriverPipeline.hs
index
bbc8051
..
cd11e0f
100644
(file)
--- a/
ghc/compiler/main/DriverPipeline.hs
+++ b/
ghc/compiler/main/DriverPipeline.hs
@@
-213,7
+213,7
@@
compile hsc_env mod_summary maybe_old_linkable old_iface mod_index nmods = do
let runCompiler compiler handle
= do mbResult <- compiler hsc_env' mod_summary
let runCompiler compiler handle
= do mbResult <- compiler hsc_env' mod_summary
- source_unchanged have_object old_iface
+ source_unchanged old_iface
(Just (mod_index, nmods))
case mbResult of
Nothing -> return CompErrs
(Just (mod_index, nmods))
case mbResult of
Nothing -> return CompErrs
@@
-751,7
+751,6
@@
runPhase (Hsc src_flavour) stop dflags0 basename suff input_fn get_output_fn _ma
-- run the compiler!
mbResult <- hscCompileOneShot hsc_env
mod_summary source_unchanged
-- run the compiler!
mbResult <- hscCompileOneShot hsc_env
mod_summary source_unchanged
- False -- No object file
Nothing -- No iface
Nothing -- No "module i of n" progress info
Nothing -- No iface
Nothing -- No "module i of n" progress info