Commit 52f8fed4 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Comments only

parent 7086e46a
...@@ -670,11 +670,13 @@ mk_known_key_name space mod str uniq ...@@ -670,11 +670,13 @@ mk_known_key_name space mod str uniq
Nothing noSrcLoc Nothing noSrcLoc
conName :: Name -> FastString -> Unique -> Name conName :: Name -> FastString -> Unique -> Name
-- Be careful to ghve constructor names the right parent!
conName tycon occ uniq conName tycon occ uniq
= mkExternalName uniq (nameModule tycon) (mkOccNameFS dataName occ) = mkExternalName uniq (nameModule tycon) (mkOccNameFS dataName occ)
(Just tycon) noSrcLoc (Just tycon) noSrcLoc
methName :: Name -> FastString -> Unique -> Name methName :: Name -> FastString -> Unique -> Name
-- Be careful to ghve method names the right parent!
methName cls occ uniq methName cls occ uniq
= mkExternalName uniq (nameModule cls) (mkVarOccFS occ) = mkExternalName uniq (nameModule cls) (mkVarOccFS occ)
(Just cls) noSrcLoc (Just cls) noSrcLoc
......
...@@ -308,7 +308,7 @@ substId (SimplEnv { seInScope = in_scope, seIdSubst = ids }) v ...@@ -308,7 +308,7 @@ substId (SimplEnv { seInScope = in_scope, seIdSubst = ids }) v
where where
-- Get the most up-to-date thing from the in-scope set -- Get the most up-to-date thing from the in-scope set
-- Even though it isn't in the substitution, it may be in -- Even though it isn't in the substitution, it may be in
-- the in-scope set better IdInfo -- the in-scope set with better IdInfo
refine v = case lookupInScope in_scope v of refine v = case lookupInScope in_scope v of
Just v' -> v' Just v' -> v'
Nothing -> WARN( True, ppr v ) v -- This is an error! Nothing -> WARN( True, ppr v ) v -- This is an error!
......
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