[commit: ghc] wip/orf-reboot: Remove unused ieNames (c936cfb)

git at git.haskell.org git at git.haskell.org
Mon Oct 12 06:36:54 UTC 2015


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/orf-reboot
Link       : http://ghc.haskell.org/trac/ghc/changeset/c936cfb36371ca0043791babe316063fdfadb151/ghc

>---------------------------------------------------------------

commit c936cfb36371ca0043791babe316063fdfadb151
Author: Adam Gundry <adam at well-typed.com>
Date:   Mon Oct 5 16:02:39 2015 +0100

    Remove unused ieNames


>---------------------------------------------------------------

c936cfb36371ca0043791babe316063fdfadb151
 compiler/hsSyn/HsImpExp.hs | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/compiler/hsSyn/HsImpExp.hs b/compiler/hsSyn/HsImpExp.hs
index a8397e4..a60f86e 100644
--- a/compiler/hsSyn/HsImpExp.hs
+++ b/compiler/hsSyn/HsImpExp.hs
@@ -197,19 +197,6 @@ ieName (IEThingWith (L _ n) _ _) = n
 ieName (IEThingAll  (L _ n))     = n
 ieName _ = panic "ieName failed pattern match!"
 
-{-
--- AMG TODO get rid of?
-ieNames :: IE a -> [a]
-ieNames (IEVar       (L _ n)      ) = [n]
-ieNames (IEThingAbs  (L _ n)      ) = [n]
-ieNames (IEThingAll  (L _ n)      ) = [n]
-ieNames (IEThingWith (L _ n) ns fs) = n : map unLoc ns ++ availFieldsNames fs
-ieNames (IEModuleContents _       ) = []
-ieNames (IEGroup          _ _     ) = []
-ieNames (IEDoc            _       ) = []
-ieNames (IEDocNamed       _       ) = []
--}
-
 pprImpExp :: (HasOccName name, OutputableBndr name) => name -> SDoc
 pprImpExp name = type_pref <+> pprPrefixOcc name
     where



More information about the ghc-commits mailing list