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}
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}