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

diff --git a/compiler/basicTypes/NameEnv.lhs b/compiler/basicTypes/NameEnv.lhs
index cebabdd..022258d 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,13 +20,11 @@ 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
 import Unique
-import LazyUniqFM
+import UniqFM
 import Maybes
 import Outputable
 \end{code}