From aa78876d2949ebd4565e9b88ce64cedad581b60f Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Mon, 2 Dec 2002 17:10:13 +0000
Subject: [PATCH] [project @ 2002-12-02 17:10:13 by simonpj] Use the right
 PackageIfaceTable in cmInfoThing

---
 ghc/compiler/compMan/CompManager.lhs |    9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs
index f026f5b..6dc4c6e 100644
--- a/ghc/compiler/compMan/CompManager.lhs
+++ b/ghc/compiler/compMan/CompManager.lhs
@@ -256,16 +256,17 @@ cmModuleIsInterpreted cmstate str
 cmInfoThing :: CmState -> DynFlags -> String -> IO (CmState, [(TyThing,Fixity)])
 cmInfoThing cmstate dflags id
    = do (new_pcs, things) <- hscThing hsc_env pcs icontext id
-	let pairs = map (\x -> (x, getFixity new_pcs (getName x))) things
+	let new_pit = eps_PIT (pcs_EPS new_pcs)
+	    pairs = map (\x -> (x, getFixity new_pit (getName x))) things
 	return (cmstate{ pcs=new_pcs }, pairs)
    where
      CmState{ hpt=hpt, pcs=pcs, ic=icontext } = cmstate
      hsc_env = HscEnv { hsc_mode   = Interactive,
 			hsc_dflags = dflags,
 			hsc_HPT    = hpt }
-     pit = eps_PIT (pcs_EPS pcs)
-     getFixity :: PersistentCompilerState -> Name -> Fixity
-     getFixity pcs name
+
+     getFixity :: PackageIfaceTable -> Name -> Fixity
+     getFixity pit name
 	| isExternalName name,
 	  Just iface  <- lookupIface hpt pit (nameModule name),
 	  Just (FixitySig _ fixity _) <- lookupNameEnv (mi_fixities iface) name
-- 
1.7.10.4