Include the fixity declaration for 'seq' in the GHC.Prim interface.
-- And some particular Ids; see below for why they are wired in
wiredInIds, ghcPrimIds,
-- And some particular Ids; see below for why they are wired in
wiredInIds, ghcPrimIds,
- unsafeCoerceId, realWorldPrimId, voidArgId, nullAddrId,
+ unsafeCoerceId, realWorldPrimId, voidArgId, nullAddrId, seqId,
eRROR_ID, eRROR_CSTRING_ID, rEC_SEL_ERROR_ID, pAT_ERROR_ID,
rEC_CON_ERROR_ID, rEC_UPD_ERROR_ID, iRREFUT_PAT_ERROR_ID,
nON_EXHAUSTIVE_GUARDS_ERROR_ID, nO_METHOD_BINDING_ERROR_ID,
eRROR_ID, eRROR_CSTRING_ID, rEC_SEL_ERROR_ID, pAT_ERROR_ID,
rEC_CON_ERROR_ID, rEC_UPD_ERROR_ID, iRREFUT_PAT_ERROR_ID,
nON_EXHAUSTIVE_GUARDS_ERROR_ID, nO_METHOD_BINDING_ERROR_ID,
PersistentCompilerState(..), GlobalRdrEnv,
LocalRdrEnv,
HomeIfaceTable, PackageIfaceTable )
PersistentCompilerState(..), GlobalRdrEnv,
LocalRdrEnv,
HomeIfaceTable, PackageIfaceTable )
-import BasicTypes ( Version, defaultFixity )
+import BasicTypes ( Version, defaultFixity,
+ Fixity(..), FixityDirection(..) )
import ErrUtils ( addShortErrLocLine, addShortWarnLocLine,
Message, Messages, errorsFound, warningsFound,
printErrorsAndWarnings
import ErrUtils ( addShortErrLocLine, addShortWarnLocLine,
Message, Messages, errorsFound, warningsFound,
printErrorsAndWarnings
RdrNameEnv, emptyRdrEnv, extendRdrEnv,
addListToRdrEnv, rdrEnvToList, rdrEnvElts
)
RdrNameEnv, emptyRdrEnv, extendRdrEnv,
addListToRdrEnv, rdrEnvToList, rdrEnvElts
)
+import Id ( idName )
+import MkId ( seqId )
import Name ( Name, OccName, NamedThing(..),
import Name ( Name, OccName, NamedThing(..),
+ nameOccName, nameRdrName,
decode, mkLocalName, mkKnownKeyGlobal
)
import NameEnv ( NameEnv, lookupNameEnv, emptyNameEnv,
extendNameEnvList )
import Module ( Module, ModuleName, ModuleSet, emptyModuleSet,
decode, mkLocalName, mkKnownKeyGlobal
)
import NameEnv ( NameEnv, lookupNameEnv, emptyNameEnv,
extendNameEnvList )
import Module ( Module, ModuleName, ModuleSet, emptyModuleSet,
+ PackageName, preludePackage )
import PrelInfo ( ghcPrimExports,
cCallableClassDecl, cReturnableClassDecl, assertDecl )
import PrelNames ( mkUnboundName, gHC_PRIM_Name )
import PrelInfo ( ghcPrimExports,
cCallableClassDecl, cReturnableClassDecl, assertDecl )
import PrelNames ( mkUnboundName, gHC_PRIM_Name )
ghcPrimIface :: ParsedIface
ghcPrimIface = ParsedIface {
pi_mod = gHC_PRIM_Name,
ghcPrimIface :: ParsedIface
ghcPrimIface = ParsedIface {
pi_mod = gHC_PRIM_Name,
- pi_pkg = FSLIT("base"),
+ pi_pkg = preludePackage,
pi_vers = 1,
pi_orphan = False,
pi_usages = [],
pi_vers = 1,
pi_orphan = False,
pi_usages = [],
pi_decls = [(1,cCallableClassDecl),
(1,cReturnableClassDecl),
(1,assertDecl)],
pi_decls = [(1,cCallableClassDecl),
(1,cReturnableClassDecl),
(1,assertDecl)],
+ pi_fixity = [(nameRdrName (idName seqId), Fixity 0 InfixR)],
+ -- seq is infixr 0
pi_insts = [],
pi_rules = (1,[]),
pi_deprecs = Nothing
pi_insts = [],
pi_rules = (1,[]),
pi_deprecs = Nothing