diff options
author | David Waern <davve@dtek.chalmers.se> | 2007-11-08 01:46:21 +0000 |
---|---|---|
committer | David Waern <davve@dtek.chalmers.se> | 2007-11-08 01:46:21 +0000 |
commit | 5e8ca3c6af372022eac4be631f64de574f1a072c (patch) | |
tree | 7bbb525055e54eea5bfb07b344440d5693d78b6c /src | |
parent | 6b31cd2c50be41cb3b7e3f85f6b0485dcbcae9f3 (diff) |
Remove commented-out code
Diffstat (limited to 'src')
-rw-r--r-- | src/Haddock/Interface/Rename.hs | 15 |
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 |