diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2019-03-03 00:16:08 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@well-typed.com> | 2019-03-04 10:18:41 -0500 |
| commit | e6ce17433b75c6c985bffaf1f6fc18d299666ccb (patch) | |
| tree | b621aab9726c7dcbe9e00f53f833ab1df7914368 | |
| parent | e7080bef906b66d0e7053db99c9733aa95059d42 (diff) | |
| download | haskell-e6ce17433b75c6c985bffaf1f6fc18d299666ccb.tar.gz | |
Revert "compiler: Write .o files atomically. See #14533"
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) |