[project @ 1996-04-07 15:41:24 by partain]

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

diff --git a/ghc/compiler/basicTypes/FieldLabel.lhs b/ghc/compiler/basicTypes/FieldLabel.lhs
index d28c6c5..d8f61d3 100644 (file)
--- a/ghc/compiler/basicTypes/FieldLabel.lhs
+++ b/ghc/compiler/basicTypes/FieldLabel.lhs
@@ -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}