diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-10-19 23:53:33 -0700 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-10-21 20:41:49 -0700 |
| commit | d77c4049607ab310076a271eb8d7aab42cbb87de (patch) | |
| tree | 3503aa1d528d50a4829a4549204610f4b24f1a83 | |
| parent | e3e5a96f933a3b35d6ce927c01aab24f8201a94d (diff) | |
| download | haskell-ghc-validate.tar.gz | |
Stop the pipeline when it doesn't need to be run.ghc-validate
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index e83f7d66a3..373afba3fa 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1023,7 +1023,7 @@ runPhase (HscOut src_flavour mod_name result) _ dflags = do case result of HscNotGeneratingCode -> - return (RealPhase next_phase, + return (RealPhase StopLn, panic "No output filename from Hsc when no-code") HscUpToDate -> do liftIO $ touchObjectFile dflags o_file @@ -1035,7 +1035,7 @@ runPhase (HscOut src_flavour mod_name result) _ dflags = do do -- In the case of hs-boot files, generate a dummy .o-boot -- stamp file for the benefit of Make liftIO $ touchObjectFile dflags o_file - return (RealPhase next_phase, o_file) + return (RealPhase StopLn, o_file) HscUpdateBootMerge -> do -- We need to create a REAL but empty .o file -- because we are going to attempt to put it in a library @@ -1043,7 +1043,7 @@ runPhase (HscOut src_flavour mod_name result) _ dflags = do let input_fn = expectJust "runPhase" (ml_hs_file location) basename = dropExtension input_fn liftIO $ compileEmptyStub dflags hsc_env' basename location - return (RealPhase next_phase, o_file) + return (RealPhase StopLn, o_file) HscRecomp cgguts mod_summary -> do output_fn <- phaseOutputFilename next_phase |