X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;h=5c32153f6238350ef84b5d6ae3204ab28243e934;hb=2c63b3b61a8e9f7b78ec179a46234c771dae4c78;hp=68e1981139cfced11a0fca38277b7f365f8159e8;hpb=13942a05ecbb8dd4952fe8b7b8f74488327df5e8;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index 68e1981..5c32153 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: DriverPipeline.hs,v 1.37 2000/12/05 12:15:19 rrt Exp $
+-- $Id: DriverPipeline.hs,v 1.38 2000/12/05 12:19:49 rrt Exp $
 --
 -- GHC Driver
 --
@@ -653,8 +653,6 @@ run_phase SplitAs basename _suff _input_fn _output_fn
 -----------------------------------------------------------------------------
 -- Linking
 
-GLOBAL_VAR(no_hs_main, False, Bool)
-
 doLink :: [String] -> IO ()
 doLink o_files = do
     ln <- readIORef v_Pgm_l