From bba9a8ceb4635cdbb93699867ec6cdc6efdaee68 Mon Sep 17 00:00:00 2001
From: David Waern <davve@dtek.chalmers.se>
Date: Thu, 8 Nov 2007 01:46:21 +0000
Subject: [PATCH] Remove commented-out code

---
 src/Haddock/Interface/Rename.hs | 15 +--------------
 1 file changed, 1 insertion(+), 14 deletions(-)

diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs
index 844525cffa..1d99ce54d1 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
-- 
GitLab