From c7c6aea809675d01861793b274c13efdbaa0fef9 Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 8 May 2001 11:07:30 +0000 Subject: [PATCH] [project @ 2001-05-08 11:07:30 by simonmar] oops, remove debugging output --- ghc/compiler/main/DriverPipeline.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs index c8bd8e6..2668c64 100644 --- a/ghc/compiler/main/DriverPipeline.hs +++ b/ghc/compiler/main/DriverPipeline.hs @@ -1,5 +1,5 @@ ----------------------------------------------------------------------------- --- $Id: DriverPipeline.hs,v 1.66 2001/05/08 10:58:48 simonmar Exp $ +-- $Id: DriverPipeline.hs,v 1.67 2001/05/08 11:07:30 simonmar Exp $ -- -- GHC Driver -- @@ -261,8 +261,6 @@ genPipeline todo stop_flag persistent_output lang filename ++ " is incompatible with source file `" ++ filename ++ "'")) else do - print (show pipeline ++ show annotated_pipeline ++ show stop_phase) - return ( takeWhile (phase_ne stop_phase ) $ dropWhile (phase_ne start_phase) $ -- 1.7.10.4