From 2265cf668d9604d407a06e11df804fc73242de00 Mon Sep 17 00:00:00 2001 From: David Waern Date: Fri, 27 Mar 2009 21:19:22 +0000 Subject: Remove docNameOrig and use getName everywhere instead --- src/Haddock/DocName.hs | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) (limited to 'src/Haddock/DocName.hs') diff --git a/src/Haddock/DocName.hs b/src/Haddock/DocName.hs index a3a92b5d..227d63e8 100644 --- a/src/Haddock/DocName.hs +++ b/src/Haddock/DocName.hs @@ -19,22 +19,14 @@ data DocName = Documented Name Module | Undocumented Name deriving Eq --- TODO: remove docNameOrig in favour of the NamedThing instance - -instance NamedThing DocName where - getName (Documented name _) = name - getName (Undocumented name) = name - - -- | The 'OccName' belonging to this name docNameOcc :: DocName -> OccName -docNameOcc = nameOccName . docNameOrig +docNameOcc = nameOccName . getName --- | The original definition site of this name -docNameOrig :: DocName -> Name -docNameOrig (Documented name _) = name -docNameOrig (Undocumented name) = name +instance NamedThing DocName where + getName (Documented name _) = name + getName (Undocumented name) = name instance Binary DocName where -- cgit v1.2.3