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
Glasgow Haskell Compiler
GHC
Commits
986622b9
Commit
986622b9
authored
Jul 16, 2007
by
rl@cse.unsw.edu.au
Browse files
Get NDP prelnames from the right modules
parent
c30cf0ba
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/prelude/PrelNames.lhs
View file @
986622b9
...
...
@@ -272,7 +272,8 @@ aRROW = mkBaseModule FSLIT("Control.Arrow")
rANDOM = mkBaseModule FSLIT("System.Random")
gLA_EXTS = mkBaseModule FSLIT("GHC.Exts")
nDP_LIFTED = mkNDPModule FSLIT("Data.Array.Parallel.Lifted")
nDP_PARRAY = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.PArray")
nDP_CLOSURE = mkNDPModule FSLIT("Data.Array.Parallel.Lifted.Closure")
mAIN = mkMainModule_ mAIN_NAME
rOOT_MAIN = mkMainModule FSLIT(":Main") -- Root module for initialisation
...
...
@@ -687,15 +688,15 @@ unmarshalStringName = varQual dOTNET FSLIT("unmarshalString") unmarshalStringId
checkDotnetResName = varQual dOTNET FSLIT("checkResult") checkDotnetResNameIdKey
-- NDP stuff
parrayTyConName = tcQual nDP_
LIFTED
FSLIT("PArray") parrayTyConKey
paClassName = clsQual nDP_
LIFTED
FSLIT("PA") paClassKey
closureTyCon
Name
= tcQual nDP_LIFTED FSLIT(":->") closureTyCon
Key
mkClosureName = varQual nDP_LIFTED FSLIT("mkClosure") mkClosureId
Key
applyC
losureName =
var
Qual nDP_
LIFTED
FSLIT("
$
:")
applyC
losure
Id
Key
mkClosure
P
Name = varQual nDP_
LIFTED
FSLIT("mkClosure
P
") mkClosure
P
IdKey
applyClosure
P
Name = varQual nDP_
LIFTED
FSLIT("$:
^
") applyClosure
P
IdKey
lengthPAName = methName nDP_LIFTED FSLIT("lengthPA") lengthPAClassOp
Key
replicat
eP
A
Name
=
methName nDP_LIFTED FSLIT("replicatePA") replicatePAClassOp
Key
parrayTyConName = tcQual nDP_
PARRAY
FSLIT("PArray") parrayTyConKey
paClassName = clsQual nDP_
PARRAY
FSLIT("PA") paClassKey
lengthPA
Name
= methName nDP_PARRAY FSLIT("lengthPA") lengthPAClassOp
Key
replicatePAName = methName nDP_PARRAY FSLIT("replicatePA") replicatePAClassOp
Key
c
losure
TyCon
Name =
tc
Qual
nDP_
CLOSURE
FSLIT(":
->
")
c
losure
TyCon
Key
mkClosureName
= varQual nDP_
CLOSURE
FSLIT("mkClosure")
mkClosureIdKey
applyClosureName
= varQual nDP_
CLOSURE
FSLIT("$:")
applyClosureIdKey
mkClosurePName = varQual nDP_CLOSURE FSLIT("mkClosureP") mkClosurePId
Key
applyClosur
ePName =
varQual nDP_CLOSURE FSLIT("$:^") applyClosurePId
Key
\end{code}
%************************************************************************
...
...
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