[commit: ghc] wip/generics-propeq: clean up (a9c9ef6)

[git at git.haskell.org]

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

On branch  : wip/generics-propeq
Link       : http://ghc.haskell.org/trac/ghc/changeset/a9c9ef66a68dbd2d659db42a7968f64ff14f3643/ghc

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

commit a9c9ef66a68dbd2d659db42a7968f64ff14f3643
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sun Jun 29 14:40:07 2014 +0200

    clean up


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

a9c9ef66a68dbd2d659db42a7968f64ff14f3643
 compiler/typecheck/TcGenGenerics.lhs | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/compiler/typecheck/TcGenGenerics.lhs b/compiler/typecheck/TcGenGenerics.lhs
index c601a85..a711eb5 100644
--- a/compiler/typecheck/TcGenGenerics.lhs
+++ b/compiler/typecheck/TcGenGenerics.lhs
@@ -79,7 +79,6 @@ genGenericMetaTyCons tc mod =
         tc_arits  = map dataConSourceArity tc_cons
 
         tc_occ    = nameOccName tc_name
-        --c_occ m   = mkGenC tc_occ m
         s_occ m n = mkGenS tc_occ m n
 
         mkTyCon tyvars name = ASSERT( isExternalName name )
@@ -92,9 +91,6 @@ genGenericMetaTyCons tc mod =
       d_tycon  <- tcLookupTyCon datTyConName
       let d_type = mkTyConApp d_tycon $ map (LitTy . StrTyLit)
                     [moduleNameFS . moduleName $ mod, occNameFS . nameOccName $ tc_name]
-      --c_names <- forM (zip [0..] tc_cons) $ \(m,_) ->
-      --              newGlobalBinder mod (c_occ m) loc
-      --let c_names = flip map (zip [0..] tc_cons) $ \(m,con) -> getName con
       let c_names = map getName tc_cons
       s_names <- forM (zip [0..] tc_arits) $ \(m,a) -> forM [0..a-1] $ \n ->
                     newGlobalBinder mod (s_occ m n) loc