Fix DEBUG build
authorsimonpj@microsoft.com <unknown>
Mon, 4 Feb 2008 16:05:14 +0000 (16:05 +0000)
committersimonpj@microsoft.com <unknown>
Mon, 4 Feb 2008 16:05:14 +0000 (16:05 +0000)
compiler/basicTypes/Unique.lhs

index 36a5352..4028786 100644 (file)
@@ -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