Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/9ad4f0b92b1298f5c6ae98850457e92c482bef50 >--------------------------------------------------------------- commit 9ad4f0b92b1298f5c6ae98850457e92c482bef50 Author: Simon Peyton Jones <[email protected]> Date: Tue Nov 29 07:39:04 2011 +0000 Switch around the order of guards in exprIsConApp_maybe This is a vital wibble to: f7cf3dcd * Be a bit less gung-ho in exprIsConApp_maybe >--------------------------------------------------------------- compiler/coreSyn/CoreSubst.lhs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/coreSyn/CoreSubst.lhs b/compiler/coreSyn/CoreSubst.lhs index 6268405..16173fb 100644 --- a/compiler/coreSyn/CoreSubst.lhs +++ b/compiler/coreSyn/CoreSubst.lhs @@ -1202,8 +1202,8 @@ exprIsConApp_maybe id_unf expr -- and that is the business of callSiteInline. -- In practice, without this test, most of the "hits" were -- CPR'd workers getting inlined back into their wrappers, - | unfoldingArity unfolding == 0 - , Just rhs <- expandUnfolding_maybe unfolding + | Just rhs <- expandUnfolding_maybe unfolding + , unfoldingArity unfolding == 0 , let in_scope' = extendInScopeSetSet in_scope (exprFreeVars rhs) = go (Left in_scope') rhs cont where _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
