aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Types.hs
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2016-04-16 17:51:09 +0200
committerBen Gamari <ben@smart-cactus.org>2016-04-16 17:51:09 +0200
commita77728cc274751e8b8077b3ccc8aacc7d00bf36d (patch)
treeadf359ede9d324d1db4985dbc80dbc30e479a1d8 /haddock-api/src/Haddock/Types.hs
parent1204af7031c627b39d4cef7cdb5842cdc199ddde (diff)
parentb89d1c2456bdb2d4208d94ded56155f7088a37d0 (diff)
Merge pull request #489 from mpickering/unused-functions
Remove some unused functions
Diffstat (limited to 'haddock-api/src/Haddock/Types.hs')
-rw-r--r--haddock-api/src/Haddock/Types.hs5
1 files changed, 0 insertions, 5 deletions
diff --git a/haddock-api/src/Haddock/Types.hs b/haddock-api/src/Haddock/Types.hs
index 3a4df70c..eacf4473 100644
--- a/haddock-api/src/Haddock/Types.hs
+++ b/haddock-api/src/Haddock/Types.hs
@@ -268,11 +268,6 @@ noDocForDecl :: DocForDecl name
noDocForDecl = (Documentation Nothing Nothing, Map.empty)
-unrenameDocForDecl :: DocForDecl DocName -> DocForDecl Name
-unrenameDocForDecl (doc, fnArgsDoc) =
- (fmap getName doc, (fmap . fmap) getName fnArgsDoc)
-
-
-----------------------------------------------------------------------------
-- * Cross-referencing
-----------------------------------------------------------------------------