From 3ba99a88fdb97fd7949385239ee59a0a4eb02b81 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 24 Nov 1997 20:12:42 +0000
Subject: [PATCH] [project @ 1997-11-24 20:12:42 by sof] Removed superflous
 uses of hGetContents in main

---
 ghc/compiler/main/Main.lhs |    9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/ghc/compiler/main/Main.lhs b/ghc/compiler/main/Main.lhs
index 282d383..839e965 100644
--- a/ghc/compiler/main/Main.lhs
+++ b/ghc/compiler/main/Main.lhs
@@ -9,7 +9,7 @@
 module Main ( main ) where
 
 IMP_Ubiq(){-uitous-}
-IMPORT_1_3(IO(hGetContents,stdin,stderr,hPutStr,hClose,openFile,IOMode(..)))
+IMPORT_1_3(IO(stderr,hPutStr,hClose,openFile,IOMode(..)))
 
 import HsSyn
 import RdrHsSyn		( RdrName )
@@ -65,17 +65,16 @@ import Outputable	( PprStyle(..), Outputable(..), pprDumpStyle, pprErrorsStyle )
 \begin{code}
 main =
  _scc_ "main" 
- hGetContents stdin	>>= \ input_pgm ->
  let
     cmd_line_info = classifyOpts
  in
- doIt cmd_line_info input_pgm
+ doIt cmd_line_info
 \end{code}
 
 \begin{code}
-doIt :: ([CoreToDo], [StgToDo]) -> String -> IO ()
+doIt :: ([CoreToDo], [StgToDo]) -> IO ()
 
-doIt (core_cmds, stg_cmds) input_pgm
+doIt (core_cmds, stg_cmds)
   = doIfSet opt_Verbose 
 	(hPutStr stderr ("Glasgow Haskell Compiler, version " ++ 
 			 show PROJECTVERSION ++ 
-- 
1.7.10.4