X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMain.hs;h=8283eb5a8635ad1244b966b53990dac6bf4523d9;hb=292c077de7dbe98eb44911648f16e243b40db2ac;hp=109af75d91622fe882ab3681dc0be879fd671234;hpb=4631557d51ec5573faa28c2062a861e630ab4993;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index 109af75..8283eb5 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -W -fno-warn-incomplete-patterns #-}
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.22 2000/11/15 10:49:54 sewardj Exp $
+-- $Id: Main.hs,v 1.23 2000/11/16 11:39:37 simonmar Exp $
 --
 -- GHC Driver program
 --
@@ -16,6 +16,7 @@ module Main (main) where
 #include "HsVersions.h"
 
 import CompManager
+import InteractiveUI
 import DriverPipeline
 import DriverState
 import DriverFlags
@@ -281,25 +282,12 @@ beginMake pkg_details mods
 	 _     -> throwDyn (UsageError "only one module allowed with --make")
 
 beginInteractive pkg_details mods
-  = do case mods of
-	 []    -> return ()
-	 [mod] -> do state <- cmInit pkg_details Interactive
-		     cmLoadModule state (mkModuleName mod)
-		     return ()
-	 _     -> throwDyn (UsageError 
+  = do state <- cmInit pkg_details Interactive
+       case mods of
+	   []    -> return ()
+	   [mod] -> do cmLoadModule state (mkModuleName mod); return ()
+	   _     -> throwDyn (UsageError 
 				"only one module allowed with --interactive")
-       interactiveUI
-
-interactiveUI :: IO ()
-interactiveUI = do
-   hPutStr stdout ghciWelcomeMsg
-   throwDyn (OtherError "GHCi not implemented yet")
-
-ghciWelcomeMsg = "\ 
-\ _____  __   __  ____          ------------------------------------------------\n\ 
-\(|	 ||   || (|  |)         GHCi: GHC Interactive, version 5.00		\n\ 
-\||  __  ||___|| ||        ()   For Haskell 98.                    		\n\ 
-\||   |) ||---|| ||       //    http://www.haskell.org/ghc         		\n\ 
-\||   || ||   || ||      //     Bug reports to: glasgow-haskell-bugs@haskell.org\n\ 
-\(|___|| ||   || (|__|) (|      ________________________________________________\n"
+       interactiveUI state
+