[commit: ghc] typeable-with-kinds: Delete commented out code. (34c8975)

git at git.haskell.org git at git.haskell.org
Wed Feb 11 22:59:33 UTC 2015


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

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

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

commit 34c89753951fc17d0d92dcde8d7536d96b727768
Author: Iavor S. Diatchki <diatchki at galois.com>
Date:   Wed Feb 11 14:54:39 2015 -0800

    Delete commented out code.


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

34c89753951fc17d0d92dcde8d7536d96b727768
 compiler/typecheck/TcGenDeriv.hs | 38 --------------------------------------
 1 file changed, 38 deletions(-)

diff --git a/compiler/typecheck/TcGenDeriv.hs b/compiler/typecheck/TcGenDeriv.hs
index d6261f5..ba6639e 100644
--- a/compiler/typecheck/TcGenDeriv.hs
+++ b/compiler/typecheck/TcGenDeriv.hs
@@ -1225,44 +1225,6 @@ getPrecedence get_fixity nm
           --     into account for either Read or Show; hence we
           --     ignore associativity here
 
-{- XXX
-genTypeableTyConRep :: DynFlags -> SrcSpan -> TyCon ->
-                                (LHsBind RdrName, LSig RdrName)
-genTypeableTyConRep dflags loc tycon =
-      ( mk_easy_FunBind loc rep_name [] tycon_rep
-      , L loc (TypeSig [L loc rep_name] sig_ty PlaceHolder)
-      )
-  where
-    rep_name   = mk_tc_deriv_name tycon (mkTyConRepOcc suf)
-    suf        = if isPromotedTyCon tycon then Just "k" else
-                 if isPromotedDataCon tycon then Just "c" else Nothing
-
-    sig_ty     = nlHsTyVar typeable_TyCon_RDR
-
-    tycon_name = tyConName tycon
-    modl       = nameModule tycon_name
-    pkg        = modulePackageKey modl
-
-    modl_fs    = moduleNameFS (moduleName modl)
-    pkg_fs     = packageKeyFS pkg
-    name_fs    = occNameFS (nameOccName tycon_name)
-
-    tycon_rep = nlHsApps mkTyCon_RDR
-                    (map nlHsLit [int64 high,
-                                  int64 low,
-                                  HsString "" pkg_fs,
-                                  HsString "" modl_fs,
-                                  HsString "" name_fs])
-
-    hashThis = unwords $ map unpackFS [pkg_fs, modl_fs, name_fs]
-    Fingerprint high low = fingerprintString hashThis
-
-    int64
-      | wORD_SIZE dflags == 4 = HsWord64Prim "" . fromIntegral
-      | otherwise             = HsWordPrim "" . fromIntegral
--}
-
-
 {-
 ************************************************************************
 *                                                                      *



More information about the ghc-commits mailing list