[commit: ghc] typeable-with-kinds: Remove more unused code. (971936a)

git at git.haskell.org git at git.haskell.org
Wed Feb 11 23:48:12 UTC 2015


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

On branch  : typeable-with-kinds
Link       : http://ghc.haskell.org/trac/ghc/changeset/971936affbecdbe8db4b77113fefde51ce08a0b0/ghc

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

commit 971936affbecdbe8db4b77113fefde51ce08a0b0
Author: Iavor S. Diatchki <diatchki at galois.com>
Date:   Wed Feb 11 15:47:07 2015 -0800

    Remove more unused code.


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

971936affbecdbe8db4b77113fefde51ce08a0b0
 compiler/basicTypes/OccName.hs | 6 ------
 compiler/prelude/PrelNames.hs  | 3 +--
 2 files changed, 1 insertion(+), 8 deletions(-)

diff --git a/compiler/basicTypes/OccName.hs b/compiler/basicTypes/OccName.hs
index 03f11e6..efa871d 100644
--- a/compiler/basicTypes/OccName.hs
+++ b/compiler/basicTypes/OccName.hs
@@ -72,8 +72,6 @@ module OccName (
         mkPReprTyConOcc,
         mkPADFunOcc,
 
-        mkTyConRepOcc,
-
         -- ** Deconstruction
         occNameFS, occNameString, occNameSpace,
 
@@ -609,7 +607,6 @@ mkDataConWrapperOcc, mkWorkerOcc,
         mkDataTOcc, mkDataCOcc, mkDataConWorkerOcc, mkNewTyCoOcc,
         mkInstTyCoOcc, mkEqPredCoOcc, mkClassOpAuxOcc,
         mkCon2TagOcc, mkTag2ConOcc, mkMaxTagOcc
-
    :: OccName -> OccName
 
 -- These derived variables have a prefix that no Haskell value could have
@@ -661,9 +658,6 @@ mkGenRCo = mk_simple_deriv tcName "CoRep_"
 mkDataTOcc = mk_simple_deriv varName  "$t"
 mkDataCOcc = mk_simple_deriv varName  "$c"
 
-mkTyConRepOcc :: Maybe String -> OccName -> OccName
-mkTyConRepOcc = mk_simple_deriv_with varName "$tcr"
-
 -- Vectorisation
 mkVectOcc, mkVectTyConOcc, mkVectDataConOcc, mkVectIsoOcc,
  mkPADFunOcc,      mkPReprTyConOcc,
diff --git a/compiler/prelude/PrelNames.hs b/compiler/prelude/PrelNames.hs
index d440b43..4e1ce9a 100644
--- a/compiler/prelude/PrelNames.hs
+++ b/compiler/prelude/PrelNames.hs
@@ -684,11 +684,10 @@ showString_RDR          = varQual_RDR gHC_SHOW (fsLit "showString")
 showSpace_RDR           = varQual_RDR gHC_SHOW (fsLit "showSpace")
 showParen_RDR           = varQual_RDR gHC_SHOW (fsLit "showParen")
 
-typeRep_RDR, mkTyCon_RDR, mkTyConApp_RDR, typeable_TyCon_RDR :: RdrName
+typeRep_RDR, mkTyCon_RDR, mkTyConApp_RDR :: RdrName
 typeRep_RDR       = varQual_RDR tYPEABLE_INTERNAL    (fsLit "typeRep#")
 mkTyCon_RDR       = varQual_RDR tYPEABLE_INTERNAL    (fsLit "mkTyCon")
 mkTyConApp_RDR    = varQual_RDR tYPEABLE_INTERNAL    (fsLit "mkTyConApp")
-typeable_TyCon_RDR = tcQual_RDR tYPEABLE_INTERNAL    (fsLit "TyCon")
 
 undefined_RDR :: RdrName
 undefined_RDR = varQual_RDR gHC_ERR (fsLit "undefined")



More information about the ghc-commits mailing list