[project @ 2001-01-31 12:40:51 by simonmar]

Throw away linkables in cmUnload, as well as interfaces.

1 files changed, 1 insertions, 1 deletions

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 9948d3d240..7e5766ca38 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -144,7 +144,7 @@ cmUnload state
  = do -- Throw away the old home dir cache
       emptyHomeDirCache
       -- Throw away the HIT and the HST
-      return state{ hst=new_hst, hit=new_hit }
+      return state{ hst=new_hst, hit=new_hit, ui=emptyUI }
    where
      CmState{ hst=hst, hit=hit } = state
      (new_hst, new_hit) = retainInTopLevelEnvs [] (hst,hit)