From 3792158f04a7cf14c700ecab448f043b8ddec6b7 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Mon, 15 Nov 2010 21:44:19 +0000
Subject: Remove docNameOcc under the motto "don't name compositions"

---
 src/Haddock/Types.hs | 5 -----
 1 file changed, 5 deletions(-)

(limited to 'src/Haddock/Types.hs')

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
-- 
cgit v1.2.3