X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FbasicTypes%2FUnique.lhs;h=51907028e5d69e18276778c4627da83f7abceff3;hb=e415eeaf6c7771488af24758ca5b9c22c42be3a6;hp=36a53521412e941826552c2bdcc4e49d78de41b0;hpb=75b2110801d1dcc1dba4b3d437c4a5f379e704e9;p=ghc-hetmet.git

diff --git a/compiler/basicTypes/Unique.lhs b/compiler/basicTypes/Unique.lhs
index 36a5352..5190702 100644
--- a/compiler/basicTypes/Unique.lhs
+++ b/compiler/basicTypes/Unique.lhs
@@ -54,6 +54,9 @@ import BasicTypes
 import FastTypes
 import FastString
 import Outputable
+#ifdef DEBUG
+import StaticFlags	( opt_SuppressUniques )
+#endif
 
 #if defined(__GLASGOW_HASKELL__)
 --just for implementing a fast [0,61) -> Char function
@@ -283,7 +286,6 @@ Allocation of unique supply characters:
 	d	desugarer
 	f	AbsC flattener
 	g	SimplStg
-	l	ndpFlatten
 	n	Native codegen
 	r	Hsc name cache
 	s	simplifier