[commit: ghc] supercompiler: Comment only (ddfbcbe)
Max Bolingbroke <[email protected]>
| Newsgroups | gmane.comp.lang.haskell.cvs.ghc |
|---|---|
| Message-ID | <[email protected]> |
Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : supercompiler http://hackage.haskell.org/trac/ghc/changeset/ddfbcbe4a7291abd9f488a908e8b5706b3f26ec6 >--------------------------------------------------------------- commit ddfbcbe4a7291abd9f488a908e8b5706b3f26ec6 Author: Max Bolingbroke <[email protected]> Date: Fri Jul 29 17:43:31 2011 +0100 Comment only >--------------------------------------------------------------- .../supercompile/Supercompile/Core/FreeVars.hs | 1 + 1 files changed, 1 insertions(+), 0 deletions(-) diff --git a/compiler/supercompile/Supercompile/Core/FreeVars.hs b/compiler/supercompile/Supercompile/Core/FreeVars.hs index d439840..3b28621 100644 --- a/compiler/supercompile/Supercompile/Core/FreeVars.hs +++ b/compiler/supercompile/Supercompile/Core/FreeVars.hs @@ -74,6 +74,7 @@ nonRecBinderFreeVars x fvs | isTyVar x = fvs `delVarSet` x nonRecBindersFreeVars :: [Var] -> FreeVars -> FreeVars nonRecBindersFreeVars xs = flip (foldr nonRecBinderFreeVars) xs +-- Returns the most tightly binding variable last altConBoundVars :: AltCon -> [Var] altConBoundVars (DataAlt _ as qs xs) = as ++ qs ++ xs altConBoundVars (LiteralAlt _) = []