Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch :
http://hackage.haskell.org/trac/ghc/changeset/c55125fdc57a90b190923ab9a5427e918124db4c >--------------------------------------------------------------- commit c55125fdc57a90b190923ab9a5427e918124db4c Author: Max Bolingbroke <batterseapo...@hotmail.com> Date: Wed Oct 26 19:12:28 2011 +0100 Make process2 the defaulrt >--------------------------------------------------------------- compiler/supercompile/Supercompile.hs | 6 ++++-- 1 files changed, 4 insertions(+), 2 deletions(-) diff --git a/compiler/supercompile/Supercompile.hs b/compiler/supercompile/Supercompile.hs index 7ee0407..29783e6 100644 --- a/compiler/supercompile/Supercompile.hs +++ b/compiler/supercompile/Supercompile.hs @@ -9,7 +9,7 @@ import Supercompile.Utilities import qualified Supercompile.Core.Syntax as S import qualified Supercompile.Core.FreeVars as S import qualified Supercompile.Evaluator.Syntax as S -import qualified Supercompile.Drive.Process1 as S +import qualified Supercompile.Drive.Process1 as S () import qualified Supercompile.Drive.Process2 as S import BasicTypes (InlinePragma(..), InlineSpec(..), isActiveIn) @@ -330,7 +330,9 @@ termUnfoldings e = go (S.termFreeVars e) emptyVarSet [] bv_uniques = uniqsFromSupply anfUniqSupply' supercompile :: CoreExpr -> IO CoreExpr -supercompile e = liftM (termToCoreExpr . snd) (S.supercompile (M.fromList unfs) e') +supercompile e = -- liftM (termToCoreExpr . snd) $ + return $ termToCoreExpr $ + S.supercompile (M.fromList unfs) e' where unfs = termUnfoldings e' e' = runParseM (coreExprToTerm e) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
