From: sewardj <unknown>
Date: Wed, 11 Oct 2000 16:15:32 +0000 (+0000)
Subject: [project @ 2000-10-11 16:15:32 by sewardj]
X-Git-Tag: Approximately_9120_patches~3633
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=587d59d7fe5a92489a2a6b7156009883f744a796;p=ghc-hetmet.git

[project @ 2000-10-11 16:15:32 by sewardj]
Reinstate emptyPCS.
---

diff --git a/ghc/compiler/ghci/CmCompile.lhs b/ghc/compiler/ghci/CmCompile.lhs
index efab1ea..b61d1b5 100644
--- a/ghc/compiler/ghci/CmCompile.lhs
+++ b/ghc/compiler/ghci/CmCompile.lhs
@@ -67,5 +67,13 @@ cmCompile finder summary old_iface hst pcs
                        pcs
                        []
                )
+
+-- should be somewhere else?
+emptyPCS :: IO PersistentCompilerState
+emptyPCS = return (PersistentCompilerState 
+                      { pcs_modmap = emptyFM,
+                        pcs_pit    = emptyPIT,
+                        pcs_pst    = emptyPST,
+                        pcs_hp     = emptyHoldingPen })
 \end{code}