X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FFieldLabel.lhs;h=ccaf094620116c2d4f42624f5174acb383c9e232;hb=fda89b29c748c6cd2fe1fdb477d5c0e8f7d32b90;hp=7e03b31c501187a12c941a7ab565d4017a66f274;hpb=5f34bb74bf3c7e051bce8ad343ac4bbbc11f62cd;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/FieldLabel.lhs b/ghc/compiler/basicTypes/FieldLabel.lhs
index 7e03b31..ccaf094 100644
--- a/ghc/compiler/basicTypes/FieldLabel.lhs
+++ b/ghc/compiler/basicTypes/FieldLabel.lhs
@@ -10,7 +10,7 @@ module FieldLabel where
 
 IMP_Ubiq(){-uitous-}
 
-import Name		--( Name{-instance Eq/Outputable-}, nameUnique )
+import Name		( Name{-instance Eq/Outputable-}, NamedThing(..), nameUnique )
 import Type		( SYN_IE(Type) )
 
 import Outputable