diff options
-rw-r--r-- | compiler/GHC/IfaceToCore.hs | 4 | ||||
-rw-r--r-- | compiler/GHC/Unit/Module/WholeCoreBindings.hs | 6 |
2 files changed, 5 insertions, 5 deletions
diff --git a/compiler/GHC/IfaceToCore.hs b/compiler/GHC/IfaceToCore.hs index ad975f1b0f..0999f419b6 100644 --- a/compiler/GHC/IfaceToCore.hs +++ b/compiler/GHC/IfaceToCore.hs @@ -240,9 +240,9 @@ typecheckIface iface } typecheckWholeCoreBindings :: IORef TypeEnv -> WholeCoreBindings -> IfG [CoreBind] -typecheckWholeCoreBindings type_var (WholeCoreBindings prepd_binding this_mod _) = +typecheckWholeCoreBindings type_var (WholeCoreBindings tidy_bindings this_mod _) = initIfaceLcl this_mod (text "typecheckWholeCoreBindings") NotBoot $ do - tcTopIfaceBindings type_var prepd_binding + tcTopIfaceBindings type_var tidy_bindings {- diff --git a/compiler/GHC/Unit/Module/WholeCoreBindings.hs b/compiler/GHC/Unit/Module/WholeCoreBindings.hs index 8e84abbf57..ad29d06246 100644 --- a/compiler/GHC/Unit/Module/WholeCoreBindings.hs +++ b/compiler/GHC/Unit/Module/WholeCoreBindings.hs @@ -57,7 +57,7 @@ the object files. -} data WholeCoreBindings = WholeCoreBindings - { wcb_bindings :: [IfaceBindingX IfaceMaybeRhs IfaceTopBndrInfo] - , wcb_module :: Module - , wcb_mod_location :: ModLocation + { wcb_bindings :: [IfaceBindingX IfaceMaybeRhs IfaceTopBndrInfo] -- ^ serialised tidied core bindings. + , wcb_module :: Module -- ^ The module which the bindings are for + , wcb_mod_location :: ModLocation -- ^ The location where the sources reside. } |