diff options
| author | simonpj <unknown> | 2002-03-14 15:27:22 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2002-03-14 15:27:22 +0000 |
| commit | 1553c7788e7f663bfc55813158325d695a21a229 (patch) | |
| tree | cd776b6e3cd70d71499aeea48335f4261b53c294 /ghc/compiler/deSugar/Check.lhs | |
| parent | 057e3f0d571845f91178cb0e416566e063696425 (diff) | |
| download | haskell-1553c7788e7f663bfc55813158325d695a21a229.tar.gz | |
[project @ 2002-03-14 15:27:15 by simonpj]
------------------------
Change
GlobalName --> ExternalName
LocalName -> InternalName
------------------------
For a long time there's been terminological confusion between
GlobalName vs LocalName (property of a Name)
GlobalId vs LocalId (property of an Id)
I've now changed the terminology for Name to be
ExternalName vs InternalName
I've also added quite a bit of documentation in the Commentary.
Diffstat (limited to 'ghc/compiler/deSugar/Check.lhs')
| -rw-r--r-- | ghc/compiler/deSugar/Check.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/compiler/deSugar/Check.lhs b/ghc/compiler/deSugar/Check.lhs index d445834451..4f134eb1eb 100644 --- a/ghc/compiler/deSugar/Check.lhs +++ b/ghc/compiler/deSugar/Check.lhs @@ -19,7 +19,7 @@ import DsUtils ( EquationInfo(..), MatchResult(..), EqnSet, import Id ( idType ) import DataCon ( DataCon, dataConTyCon, dataConArgTys, dataConSourceArity, dataConFieldLabels ) -import Name ( Name, mkLocalName, getOccName, isDataSymOcc, getName, mkVarOcc ) +import Name ( Name, mkInternalName, getOccName, isDataSymOcc, getName, mkVarOcc ) import TcType ( mkTyVarTys ) import TysPrim ( charPrimTy ) import TysWiredIn @@ -375,7 +375,7 @@ make_row_vars used_lits (EqnInfo _ _ pats _ ) = (VarPatIn new_var:takeList (tail pats) (repeat new_wild_pat),[(new_var,used_lits)]) where new_var = hash_x -hash_x = mkLocalName unboundKey {- doesn't matter much -} +hash_x = mkInternalName unboundKey {- doesn't matter much -} (mkVarOcc SLIT("#x")) noSrcLoc |