diff options
author | Ben Gamari <ben@smart-cactus.org> | 2019-03-03 00:16:08 -0500 |
---|---|---|
committer | Ben Gamari <ben@smart-cactus.org> | 2019-03-03 00:16:08 -0500 |
commit | 3533d4984794bf32cc3ab25c622bd4c0df9e6c25 (patch) | |
tree | 8d44049168ff358d26f78fff249c58e74e81e3de | |
parent | 2974af32361da7028352387f7172c4e16ecf43da (diff) | |
download | haskell-wip/revert-atomic-writes.tar.gz |
Revert "compiler: Write .o files atomically. See #14533"wip/revert-atomic-writes
This reverts commit 0e2d300a59b1b5c167d2e7d99a448c8663ba6d7d.
-rw-r--r-- | compiler/main/DriverPipeline.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 3f59ed3bbf..5fe2362973 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1375,12 +1375,7 @@ runPhase (RealPhase (As with_cpp)) input_fn dflags ]) liftIO $ debugTraceMsg dflags 4 (text "Running the assembler") - - -- Atomic write by writing to temp file and then renaming - let temp_output_fn = output_fn <.> "tmp" - runAssembler input_fn temp_output_fn - liftIO $ renameFile temp_output_fn output_fn - + runAssembler input_fn output_fn return (RealPhase next_phase, output_fn) |