From 1d04f32d4f5acd0aba65da3c900709e755579c5d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 31 Jan 2001 12:40:51 +0000
Subject: [PATCH] [project @ 2001-01-31 12:40:51 by simonmar] Throw away
 linkables in cmUnload, as well as interfaces.

---
 ghc/compiler/compMan/CompManager.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index 9948d3d..7e5766c 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)
-- 
1.7.10.4