aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorDavid Waern <davve@dtek.chalmers.se>2007-11-08 01:46:21 +0000
committerDavid Waern <davve@dtek.chalmers.se>2007-11-08 01:46:21 +0000
commit5e8ca3c6af372022eac4be631f64de574f1a072c (patch)
tree7bbb525055e54eea5bfb07b344440d5693d78b6c /src/Haddock
parent6b31cd2c50be41cb3b7e3f85f6b0485dcbcae9f3 (diff)
Remove commented-out code
Diffstat (limited to 'src/Haddock')
-rw-r--r--src/Haddock/Interface/Rename.hs15
1 files changed, 1 insertions, 14 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs
index 844525cf..1d99ce54 100644
--- a/src/Haddock/Interface/Rename.hs
+++ b/src/Haddock/Interface/Rename.hs
@@ -376,20 +376,7 @@ renameSig sig = case sig of
TypeSig (L loc name) ltype -> do
ltype' <- renameLType ltype
return (TypeSig (L loc (keep name)) ltype')
-{- SpecSig lname ltype x -> do
- lname' <- renameL lname
- ltype' <- renameLType ltype
- return (SpecSig lname' ltype' x)
- InlineSig lname x -> do
- lname' <- renameL lname
- return (InlineSig lname' x)
- SpecInstSig t -> return . SpecInstSig =<< renameLType t
- FixSig fsig -> return . FixSig =<< renameFixitySig fsig
- where
- renameFixitySig (FixitySig lname x) = do
- lname' <- renameL lname
- return (FixitySig lname' x)
--}
+ -- we have filtered out all other kinds of signatures in Interface.Create
renameForD (ForeignImport lname ltype x) = do