Skip to content
GitLab
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
3771bfe8
Commit
3771bfe8
authored
Jul 31, 2008
by
batterseapower
Browse files
Follow OccName changes in VectBuiltIn
parent
09c50398
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/vectorise/VectBuiltIn.hs
View file @
3771bfe8
...
...
@@ -400,7 +400,7 @@ externalVar mod fs
externalTyCon
::
Module
->
FastString
->
DsM
TyCon
externalTyCon
mod
fs
=
dsLookupTyCon
=<<
lookupOrig
mod
(
mkOcc
NameFS
tcName
fs
)
=
dsLookupTyCon
=<<
lookupOrig
mod
(
mk
Tc
Occ
FS
fs
)
externalType
::
Module
->
FastString
->
DsM
Type
externalType
mod
fs
...
...
@@ -426,7 +426,7 @@ primPArray tycon (Builtins { dphModules = mods })
|
Just
suffix
<-
lookupNameEnv
prim_ty_cons
(
tyConName
tycon
)
=
liftM
Just
$
dsLookupTyCon
=<<
lookupOrig
(
dph_Unboxed
mods
)
(
mkOcc
Name
tcName
$
"PArray"
++
suffix
)
(
mk
Tc
Occ
$
"PArray"
++
suffix
)
|
otherwise
=
return
Nothing
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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