Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/673b1bec23ae62a5bad7a4761409bc6b0e2c314c >--------------------------------------------------------------- commit 673b1bec23ae62a5bad7a4761409bc6b0e2c314c Author: Jose Pedro Magalhaes <[email protected]> Date: Tue Mar 27 14:03:42 2012 +0200 Remove dead code RdrHsSyn.extractGenericPatTyVars was a leftover from the old generic classes. >--------------------------------------------------------------- compiler/parser/RdrHsSyn.lhs | 13 +------------ 1 files changed, 1 insertions(+), 12 deletions(-) diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs index b6893cf..fa6a2d2 100644 --- a/compiler/parser/RdrHsSyn.lhs +++ b/compiler/parser/RdrHsSyn.lhs @@ -6,7 +6,7 @@ Functions over HsSyn specialised to RdrName. \begin{code} module RdrHsSyn ( extractHsTyRdrTyVars, - extractHsRhoRdrTyVars, extractGenericPatTyVars, + extractHsRhoRdrTyVars, mkHsOpApp, mkHsIntegral, mkHsFractional, mkHsIsString, @@ -151,17 +151,6 @@ extract_lty (L loc ty) acc extract_tv :: SrcSpan -> RdrName -> [Located RdrName] -> [Located RdrName] extract_tv loc tv acc | isRdrTyVar tv = L loc tv : acc | otherwise = acc - -extractGenericPatTyVars :: LHsBinds RdrName -> [Located RdrName] --- Get the type variables out of the type patterns in a bunch of --- possibly-generic bindings in a class declaration -extractGenericPatTyVars binds - = nubBy eqLocated (foldrBag get [] binds) - where - get (L _ (FunBind { fun_matches = MatchGroup ms _ })) acc = foldr (get_m.unLoc) acc ms - get _ acc = acc - - get_m _ acc = acc \end{code} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
