\begin{code}
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
module PrelNames (
Unique, Uniquable(..), hasKey, -- Re-exported for convenience
#include "HsVersions.h"
-import PackageConfig
-import Module ( Module, ModuleName, mkModule, mkModuleNameFS )
+import Module
import OccName ( dataName, tcName, clsName, varName, mkOccNameFS,
mkVarOccFS )
import RdrName ( RdrName, nameRdrName, mkOrig, rdrNameOcc, mkUnqual )
basicKnownKeyNames
= genericTyConNames
++ typeableClassNames
- ++ ndpNames
++ [ -- Type constructors (synonyms especially)
ioTyConName, ioDataConName,
runMainIOName,
genericTyConNames :: [Name]
genericTyConNames = [crossTyConName, plusTyConName, genUnitTyConName]
-
-ndpNames :: [Name]
-ndpNames = [ parrayTyConName, paTyConName, preprTyConName, embedTyConName
- , closureTyConName
- , mkClosureName, applyClosureName
- , mkClosurePName, applyClosurePName
- , lengthPAName, replicatePAName, emptyPAName, packPAName,
- combinePAName, intEqPAName ]
\end{code}
rANDOM = mkBaseModule FSLIT("System.Random")
gLA_EXTS = mkBaseModule FSLIT("GHC.Exts")
-nDP_PARRAY = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.PArray")
-nDP_UTILS = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Utils")
-nDP_CLOSURE = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Closure")
-nDP_INSTANCES = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Instances")
-
mAIN = mkMainModule_ mAIN_NAME
rOOT_MAIN = mkMainModule FSLIT(":Main") -- Root module for initialisation
mkBaseModule_ :: ModuleName -> Module
mkBaseModule_ m = mkModule basePackageId m
-mkNDPModule :: FastString -> Module
-mkNDPModule m = mkModule ndpPackageId (mkModuleNameFS m)
-
-mkNDPModule_ :: ModuleName -> Module
-mkNDPModule_ m = mkModule ndpPackageId m
-
mkMainModule :: FastString -> Module
mkMainModule m = mkModule mainPackageId (mkModuleNameFS m)
marshalStringName = varQual dOTNET FSLIT("marshalString") marshalStringIdKey
unmarshalStringName = varQual dOTNET FSLIT("unmarshalString") unmarshalStringIdKey
checkDotnetResName = varQual dOTNET FSLIT("checkResult") checkDotnetResNameIdKey
-
--- NDP stuff
-parrayTyConName = tcQual nDP_PARRAY FSLIT("PArray") parrayTyConKey
-paTyConName = tcQual nDP_PARRAY FSLIT("PA") paTyConKey
-preprTyConName = tcQual nDP_PARRAY FSLIT("PRepr") preprTyConKey
-embedTyConName = tcQual nDP_PARRAY FSLIT("Embed") embedTyConKey
-lengthPAName = varQual nDP_PARRAY FSLIT("lengthPA") lengthPAIdKey
-replicatePAName = varQual nDP_PARRAY FSLIT("replicatePA") replicatePAIdKey
-emptyPAName = varQual nDP_PARRAY FSLIT("emptyPA") emptyPAIdKey
-packPAName = varQual nDP_PARRAY FSLIT("packPA") packPAIdKey
-combinePAName = varQual nDP_PARRAY FSLIT("combinePA") combinePAIdKey
-intEqPAName = varQual nDP_UTILS FSLIT("intEqPA") intEqPAIdKey
-closureTyConName = tcQual nDP_CLOSURE FSLIT(":->") closureTyConKey
-mkClosureName = varQual nDP_CLOSURE FSLIT("mkClosure") mkClosureIdKey
-applyClosureName = varQual nDP_CLOSURE FSLIT("$:") applyClosureIdKey
-mkClosurePName = varQual nDP_CLOSURE FSLIT("mkClosureP") mkClosurePIdKey
-applyClosurePName = varQual nDP_CLOSURE FSLIT("$:^") applyClosurePIdKey
\end{code}
%************************************************************************
stringTyConKey = mkPreludeTyConUnique 134
-parrayTyConKey = mkPreludeTyConUnique 135
-closureTyConKey = mkPreludeTyConUnique 136
-paTyConKey = mkPreludeTyConUnique 137
-preprTyConKey = mkPreludeTyConUnique 138
-embedTyConKey = mkPreludeTyConUnique 139
-
-
---------------- Template Haskell -------------------
-- USES TyConUniques 100-129
-----------------------------------------------------
fromStringClassOpKey = mkPreludeMiscIdUnique 125
--- Flattened parallel array functions
-mkClosureIdKey = mkPreludeMiscIdUnique 126
-applyClosureIdKey = mkPreludeMiscIdUnique 127
-mkClosurePIdKey = mkPreludeMiscIdUnique 128
-applyClosurePIdKey = mkPreludeMiscIdUnique 129
-closurePAIdKey = mkPreludeMiscIdUnique 130
-lengthPAIdKey = mkPreludeMiscIdUnique 131
-replicatePAIdKey = mkPreludeMiscIdUnique 132
-emptyPAIdKey = mkPreludeMiscIdUnique 133
-packPAIdKey = mkPreludeMiscIdUnique 134
-combinePAIdKey = mkPreludeMiscIdUnique 135
-intEqPAIdKey = mkPreludeMiscIdUnique 136
-
---------------- Template Haskell -------------------
-- USES IdUniques 200-399
-----------------------------------------------------