diff options
| author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-10-16 13:23:23 +0200 |
|---|---|---|
| committer | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-10-16 16:18:48 +0200 |
| commit | b3a2cf8fa660b466175870bfaba99c8bc40b5b54 (patch) | |
| tree | 930a64b812f0a06913b577737fa1a92dd8402656 /compiler | |
| parent | 00226dd9b27f6d8545e3191cf5afc5f6ff8b0458 (diff) | |
| download | haskell-b3a2cf8fa660b466175870bfaba99c8bc40b5b54.tar.gz | |
Minor code refactoring in HscMain
Compiled HscMain.o is now smaller.
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/main/HscMain.hs | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index 19a9d83367..331ec6da51 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) |