diff options
author | David Waern <david.waern@gmail.com> | 2010-11-15 21:44:19 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2010-11-15 21:44:19 +0000 |
commit | 3792158f04a7cf14c700ecab448f043b8ddec6b7 (patch) | |
tree | 6e3ef4543cca1903f5e54d1bf14369e4c72c78e6 /src/Haddock/Types.hs | |
parent | efb2c8cc248ac2e06829939d8f3b1f921128bbb7 (diff) |
Remove docNameOcc under the motto "don't name compositions"
Diffstat (limited to 'src/Haddock/Types.hs')
-rw-r--r-- | src/Haddock/Types.hs | 5 |
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 |