Remove docNameOrig and use getName everywhere instead

1 files changed, 4 insertions, 12 deletions

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