From: simonmar <unknown>
Date: Wed, 31 Jan 2001 12:40:51 +0000 (+0000)
Subject: [project @ 2001-01-31 12:40:51 by simonmar]
X-Git-Tag: Approximately_9120_patches~2761
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1d04f32d4f5acd0aba65da3c900709e755579c5d;p=ghc-hetmet.git

[project @ 2001-01-31 12:40:51 by simonmar]
Throw away linkables in cmUnload, as well as interfaces.
---

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)