Commit 3771bfe8 authored by batterseapower's avatar batterseapower
Browse files

Follow OccName changes in VectBuiltIn

parent 09c50398
...@@ -400,7 +400,7 @@ externalVar mod fs ...@@ -400,7 +400,7 @@ externalVar mod fs
externalTyCon :: Module -> FastString -> DsM TyCon externalTyCon :: Module -> FastString -> DsM TyCon
externalTyCon mod fs externalTyCon mod fs
= dsLookupTyCon =<< lookupOrig mod (mkOccNameFS tcName fs) = dsLookupTyCon =<< lookupOrig mod (mkTcOccFS fs)
externalType :: Module -> FastString -> DsM Type externalType :: Module -> FastString -> DsM Type
externalType mod fs externalType mod fs
...@@ -426,7 +426,7 @@ primPArray tycon (Builtins { dphModules = mods }) ...@@ -426,7 +426,7 @@ primPArray tycon (Builtins { dphModules = mods })
| Just suffix <- lookupNameEnv prim_ty_cons (tyConName tycon) | Just suffix <- lookupNameEnv prim_ty_cons (tyConName tycon)
= liftM Just = liftM Just
$ dsLookupTyCon =<< lookupOrig (dph_Unboxed mods) $ dsLookupTyCon =<< lookupOrig (dph_Unboxed mods)
(mkOccName tcName $ "PArray" ++ suffix) (mkTcOcc $ "PArray" ++ suffix)
| otherwise = return Nothing | otherwise = return Nothing
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment