diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-05-17 12:21:02 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-05-17 12:21:02 +0000 |
| commit | 54fd57cdd7c974f81dee81e8edc53e78de82db04 (patch) | |
| tree | f3b7f4f14604af2983a8a1010656b3e2dbe2fdea | |
| parent | 8c9667e1a1036359f2c656c6cc031d50ae746554 (diff) | |
| download | haskell-54fd57cdd7c974f81dee81e8edc53e78de82db04.tar.gz | |
eliminate warnings
| -rw-r--r-- | compiler/main/InteractiveEval.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/main/InteractiveEval.hs b/compiler/main/InteractiveEval.hs index b830db6248..f7e910135e 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 |