From: simonmar <unknown>
Date: Tue, 2 Jul 2002 16:27:38 +0000 (+0000)
Subject: [project @ 2002-07-02 16:27:38 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1901
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=15863f1cfd88aa5d063b39a8e63fd9cf4bc9e142

[project @ 2002-07-02 16:27:38 by simonmar]
After loading a package, set the context to something sensible
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index a203d94..62c89a7 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -#include "Linker.h" -#include "SchedAPI.h" #-}
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.127 2002/07/02 10:16:35 wolfgang Exp $
+-- $Id: InteractiveUI.hs,v 1.128 2002/07/02 16:27:38 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -878,6 +878,8 @@ newPackages new_pkgs = do
     new_pkg_info <- getPackageDetails new_pkgs
     mapM_ (linkPackage dflags) (reverse new_pkg_info)
 
+  setContextAfterLoad []
+
 -----------------------------------------------------------------------------
 -- code for `:show'