From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 17 May 2007 12:21:02 +0000 (+0000)
Subject: eliminate warnings
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=54fd57cdd7c974f81dee81e8edc53e78de82db04

eliminate warnings
---

diff --git a/compiler/main/InteractiveEval.hs b/compiler/main/InteractiveEval.hs
index b830db6..f7e9101 100644
--- a/compiler/main/InteractiveEval.hs
+++ b/compiler/main/InteractiveEval.hs
@@ -72,7 +72,6 @@ import Control.Monad
 import Foreign
 import Foreign.C
 import GHC.Exts
-import GHC.Conc         ( ThreadId(..) )
 import Data.Array
 import Control.Exception as Exception
 import Control.Concurrent
@@ -632,7 +631,7 @@ mkExportEnv hsc_env mods = do
 
 nameSetToGlobalRdrEnv :: NameSet -> ModuleName -> GlobalRdrEnv
 nameSetToGlobalRdrEnv names mod =
-  mkGlobalRdrEnv [ GRE  { gre_name = name, gre_prov = vanillaProv mod }
+  mkGlobalRdrEnv [ GRE  { gre_name = name, gre_par = NoParent, gre_prov = vanillaProv mod }
 		 | name <- nameSetToList names ]
 
 vanillaProv :: ModuleName -> Provenance