aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Types.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock/Types.hs')
-rw-r--r--src/Haddock/Types.hs5
1 files changed, 0 insertions, 5 deletions
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index 6b4063c0..3cfc7875 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -235,11 +235,6 @@ data DocName = Documented Name Module | Undocumented Name deriving Eq
-- TODO: simplify to data DocName = DocName Name (Maybe Module)
--- | The 'OccName' of this name.
-docNameOcc :: DocName -> OccName
-docNameOcc = nameOccName . getName
-
-
instance NamedThing DocName where
getName (Documented name _) = name
getName (Undocumented name) = name