[commit: ghc] master: Minor code refactoring in HscMain (b3a2cf8)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/b3a2cf8fa660b466175870bfaba99c8bc40b5b54/ghc

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

commit b3a2cf8fa660b466175870bfaba99c8bc40b5b54
Author: Jan Stolarek <jan.stolarek at p.lodz.pl>
Date:   Wed Oct 16 13:23:23 2013 +0200

    Minor code refactoring in HscMain
    
    Compiled HscMain.o is now smaller.


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

b3a2cf8fa660b466175870bfaba99c8bc40b5b54
 compiler/main/HscMain.hs |    8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs
index 19a9d83..331ec6d 100644
--- a/compiler/main/HscMain.hs
+++ b/compiler/main/HscMain.hs
@@ -1280,12 +1280,8 @@ tryNewCodeGen hsc_env this_mod data_tycons
 
       | otherwise
         = {-# SCC "cmmPipeline" #-}
-          let initTopSRT = initUs_ us emptySRT in
-  
-          let run_pipeline topSRT cmmgroup = do
-                (topSRT, cmmgroup) <- cmmPipeline hsc_env topSRT cmmgroup
-                return (topSRT,cmmgroup)
-  
+          let initTopSRT = initUs_ us emptySRT
+              run_pipeline = cmmPipeline hsc_env
           in do topSRT <- Stream.mapAccumL run_pipeline initTopSRT ppr_stream1
                 Stream.yield (srtToData topSRT)