From b9574da4a89b888a25588bc874bda7438a56bc8c Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 4 Aug 2000 12:04:08 +0000 Subject: [PATCH] [project @ 2000-08-04 12:04:08 by simonmar] wibble --- ghc/driver/Main.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/ghc/driver/Main.hs b/ghc/driver/Main.hs index 3c64d36..6e3e112 100644 --- a/ghc/driver/Main.hs +++ b/ghc/driver/Main.hs @@ -1,6 +1,6 @@ {-# OPTIONS -W #-} ----------------------------------------------------------------------------- --- $Id: Main.hs,v 1.49 2000/08/04 09:45:20 simonmar Exp $ +-- $Id: Main.hs,v 1.50 2000/08/04 12:04:08 simonmar Exp $ -- -- GHC Driver program -- @@ -1346,6 +1346,7 @@ genPipeline todo stop_flag filename -- in the pipeline, so we add linking to the end of the pipeline -- to force the output from the final phase to be a .o file. stop_phase = case todo of StopBefore phase -> phase + DoMkDependHS -> Ln DoLink -> Ln annotated_pipeline = annotatePipeline (pipeline ++ [ Ln ]) stop_phase -- 1.7.10.4