[commit: ghc] master: Delete dead code mkIParamTyCon (9806a0a)

Simon Peyton Jones simonpj at microsoft.com
Fri May 11 19:03:20 CEST 2012


Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/9806a0a3e288d5ee28b9d8a8cc8cca1d5cc3b134

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

commit 9806a0a3e288d5ee28b9d8a8cc8cca1d5cc3b134
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri May 11 18:02:47 2012 +0100

    Delete dead code mkIParamTyCon

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

 compiler/types/TyCon.lhs |    6 ------
 1 files changed, 0 insertions(+), 6 deletions(-)

diff --git a/compiler/types/TyCon.lhs b/compiler/types/TyCon.lhs
index d6a744c..2c4931a 100644
--- a/compiler/types/TyCon.lhs
+++ b/compiler/types/TyCon.lhs
@@ -22,7 +22,6 @@ module TyCon(
         -- ** Constructing TyCons
         mkAlgTyCon,
         mkClassTyCon,
-        mkIParamTyCon,
         mkFunTyCon,
         mkPrimTyCon,
         mkKindTyCon,
@@ -859,11 +858,6 @@ mkClassTyCon :: Name -> Kind -> [TyVar] -> AlgTyConRhs -> Class -> RecFlag -> Ty
 mkClassTyCon name kind tyvars rhs clas is_rec =
   mkAlgTyCon name kind tyvars Nothing [] rhs (ClassTyCon clas) is_rec False
 
--- | Simpler specialization of 'mkAlgTyCon' for implicit paramaters
-mkIParamTyCon :: Name -> Kind -> TyVar -> AlgTyConRhs -> RecFlag -> TyCon
-mkIParamTyCon name kind tyvar rhs is_rec =
-  mkAlgTyCon name kind [tyvar] Nothing [] rhs NoParentTyCon is_rec False
-
 mkTupleTyCon :: Name
              -> Kind    -- ^ Kind of the resulting 'TyCon'
              -> Arity   -- ^ Arity of the tuple





More information about the Cvs-ghc mailing list