[commit: ghc] : Make process2 the defaulrt (c55125f)

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/c55125fdc57a90b190923ab9a5427e918124db4c

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

commit c55125fdc57a90b190923ab9a5427e918124db4c
Author: Max Bolingbroke <[email protected]>
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)