diff options
author | nineonine <mail4chemik@gmail.com> | 2019-10-11 00:31:58 -0700 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-11-19 11:53:16 -0500 |
commit | 88013b784d77c069b7c083244d04a59ac2da2895 (patch) | |
tree | 6053b9eb19acecb8c80b92ccd586cda36b71be90 /compiler/main | |
parent | cf7f8e5bbec83da1bb62075968bc78c86414c245 (diff) | |
download | haskell-88013b784d77c069b7c083244d04a59ac2da2895.tar.gz |
Optimize MonadUnique instances based on IO (#16843)
Metric Decrease:
T14683
Diffstat (limited to 'compiler/main')
-rw-r--r-- | compiler/main/CodeOutput.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/compiler/main/CodeOutput.hs b/compiler/main/CodeOutput.hs index 01d714d57a..6b70366f45 100644 --- a/compiler/main/CodeOutput.hs +++ b/compiler/main/CodeOutput.hs @@ -176,11 +176,9 @@ outputAsm dflags this_mod location filenm cmm_stream outputLlvm :: DynFlags -> FilePath -> Stream IO RawCmmGroup a -> IO a outputLlvm dflags filenm cmm_stream - = do ncg_uniqs <- mkSplitUniqSupply 'n' - - {-# SCC "llvm_output" #-} doOutput filenm $ + = do {-# SCC "llvm_output" #-} doOutput filenm $ \f -> {-# SCC "llvm_CodeGen" #-} - llvmCodeGen dflags f ncg_uniqs cmm_stream + llvmCodeGen dflags f cmm_stream {- ************************************************************************ @@ -262,4 +260,3 @@ outputForeignStubs_help _fname "" _header _footer = return False outputForeignStubs_help fname doc_str header footer = do writeFile fname (header ++ doc_str ++ '\n':footer ++ "\n") return True - |