X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FbasicTypes%2FName.lhs;h=de8a3a32b55602916f07908cba5e061d9b8632a6;hp=70cf298a4f6e2405247849ed8b683d021e67d1a9;hb=34c8d0312071f7d0f4d221a997d3408c653ef9e5;hpb=cb8fb4dc68b503474bd65c0a669d9018a3ce96fe

diff --git a/compiler/basicTypes/Name.lhs b/compiler/basicTypes/Name.lhs
index 70cf298..de8a3a3 100644
--- a/compiler/basicTypes/Name.lhs
+++ b/compiler/basicTypes/Name.lhs
@@ -64,6 +64,7 @@ module Name (
 	getSrcLoc, getSrcSpan, getOccString,
 
  	pprInfixName, pprPrefixName, pprModulePrefix,
+        getNameDepth, setNameDepth,
 
 	-- Re-export the OccName stuff
 	module OccName
@@ -111,6 +112,12 @@ data Name = Name {
 -- (and real!) space leaks, due to the fact that we don't look at
 -- the SrcLoc in a Name all that often.
 
+setNameDepth :: Int -> Name -> Name
+setNameDepth depth name = name { n_occ = setOccNameDepth depth (n_occ name) }
+
+getNameDepth :: Name -> Int
+getNameDepth name = getOccNameDepth $ n_occ name
+
 data NameSort
   = External Module