X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FNameEnv.lhs;h=4b8085da9ccda019d60e9c3d02892e76aea6f67f;hb=59300a7161f44b3a2afe381a6ccd914043a32c4f;hp=cebabdd639b22a812cf56fced012dd0ab483e2da;hpb=9ac1ca0d05f3cb1d551c5116eba481fc72ced22e;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/NameEnv.lhs b/compiler/basicTypes/NameEnv.lhs
index cebabdd..4b8085d 100644
--- a/compiler/basicTypes/NameEnv.lhs
+++ b/compiler/basicTypes/NameEnv.lhs
@@ -6,7 +6,11 @@
 
 \begin{code}
 module NameEnv (
-	NameEnv, mkNameEnv,
+	-- * Var, Id and TyVar environments (maps) 
+	NameEnv, 
+	
+	-- ** Manipulating these environments
+	mkNameEnv,
 	emptyNameEnv, unitNameEnv, nameEnvElts, nameEnvUniqueElts,
 	extendNameEnv_C, extendNameEnv_Acc, extendNameEnv,
         extendNameEnvList, extendNameEnvList_C,
@@ -16,8 +20,6 @@ module NameEnv (
 	elemNameEnv, mapNameEnv
     ) where
 
--- XXX This define is a bit of a hack, and should be done more nicely
-#define FAST_STRING_NOT_NEEDED 1
 #include "HsVersions.h"
 
 import Name