Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
1187e57f
Commit
1187e57f
authored
Mar 02, 2006
by
Simon Marlow
Browse files
fix for compiling the base package with --make
parent
0f800dc9
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/main/HscTypes.lhs
View file @
1187e57f
...
...
@@ -84,6 +84,7 @@ import Type ( TyThing(..) )
import Class ( Class, classSelIds, classTyCon )
import TyCon ( TyCon, tyConSelIds, tyConDataCons )
import DataCon ( dataConImplicitIds )
import PrelNames ( gHC_PRIM )
import Packages ( PackageIdH, PackageId, PackageConfig, HomeModules )
import DynFlags ( DynFlags(..), isOneShot )
import DriverPhases ( HscSource(..), isHsBoot, hscSourceString, Phase )
...
...
@@ -275,9 +276,17 @@ hptRules hsc_env deps
| -- Find each non-hi-boot module below me
(mod, False) <- deps
-- unsavoury: when compiling the base package with --make, we
-- sometimes try to look up RULES for GHC.Prim. GHC.Prim won't
-- be in the HPT, because we never compile it; it's in the EPT
-- instead. ToDo: clean up, and remove this slightly bogus
-- filter:
, mod /= gHC_PRIM
-- Look it up in the HPT
, let mod_info = ASSERT( mod `elemModuleEnv` hpt )
expectJust "hptRules" (lookupModuleEnv hpt mod)
, let mod_info = case lookupModuleEnv hpt mod of
Nothing -> pprPanic "hptRules" (ppr mod <+> ppr deps)
Just x -> x
-- And get its dfuns
, rule <- md_rules (hm_details mod_info) ]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment