-----------------------------------------------------------------------------
--- $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
--
++ " 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) $