[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