[project @ 1997-05-19 00:12:10 by sof]

[ghc-hetmet.git] / ghc / compiler / basicTypes / FieldLabel.lhs

diff --git a/ghc/compiler/basicTypes/FieldLabel.lhs b/ghc/compiler/basicTypes/FieldLabel.lhs
index ea2ee94..0173833 100644 (file)
--- a/ghc/compiler/basicTypes/FieldLabel.lhs
+++ b/ghc/compiler/basicTypes/FieldLabel.lhs
@@ -10,13 +10,16 @@ module FieldLabel where
 
 IMP_Ubiq(){-uitous-}
 
-import Name            ( Name{-instance Eq/Outputable-}, nameUnique )
+import Name            --( Name{-instance Eq/Outputable-}, nameUnique )
 import Type            ( SYN_IE(Type) )
+
+import Outputable
+import UniqFM           ( SYN_IE(Uniquable) )
 \end{code}
 
 \begin{code}
 data FieldLabel
-  = FieldLabel Name
+  = FieldLabel Name            -- Also used as the Name of the field selector Id
                Type
                FieldLabelTag