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

diff --git a/ghc/compiler/basicTypes/FieldLabel.lhs b/ghc/compiler/basicTypes/FieldLabel.lhs
index d28c6c5..7e3b67c 100644
--- a/ghc/compiler/basicTypes/FieldLabel.lhs
+++ b/ghc/compiler/basicTypes/FieldLabel.lhs
@@ -8,10 +8,10 @@
 
 module FieldLabel where
 
-import Ubiq{-uitous-}
+IMP_Ubiq(){-uitous-}
 
 import Name		( Name{-instance Eq/Outputable-} )
-import Type		( Type(..) )
+import Type		( SYN_IE(Type) )
 \end{code}
 
 \begin{code}
@@ -40,6 +40,6 @@ instance Eq FieldLabel where
 instance Outputable FieldLabel where
     ppr sty (FieldLabel n _ _) = ppr sty n
 
-instance NamedThing FieldLabel
-    -- ToDo: fill this in
+instance NamedThing FieldLabel where
+    getName (FieldLabel n _ _) = n
 \end{code}