[project @ 2000-11-06 08:15:20 by simonpj]

[ghc-hetmet.git] / ghc / compiler / main / HscMain.lhs

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index bf5857e..b7e1577 100644 (file)
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -380,9 +380,9 @@ initPersistentRenamerState :: IO PersistentRenamerState
        return (
         PRS { prsOrig  = Orig { origNames  = initOrigNames,
                                origIParam = emptyFM },
-             prsDecls = emptyNameEnv,
-             prsInsts = emptyBag,
-             prsRules = emptyBag,
+             prsDecls = (emptyNameEnv, 0),
+             prsInsts = (emptyBag, 0),
+             prsRules = (emptyBag, 0),
              prsNS    = ns
             }
         )