diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-04-10 18:28:11 -0700 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-04-10 18:28:11 -0700 |
| commit | c7498bbdaa74dadd976c75c4e303c2050aa78277 (patch) | |
| tree | b98830f1eb73dfba53ac1c79e440a2671142e7c8 /compiler/main/DriverPipeline.hs | |
| parent | c269b7e85524f4a8be3cd0f00e107207ab9197af (diff) | |
| download | haskell-c7498bbdaa74dadd976c75c4e303c2050aa78277.tar.gz | |
Fix #8641, creating directories when we have stubs.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Diffstat (limited to 'compiler/main/DriverPipeline.hs')
| -rw-r--r-- | compiler/main/DriverPipeline.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs index 2c719670c5..2816c943fb 100644 --- a/compiler/main/DriverPipeline.hs +++ b/compiler/main/DriverPipeline.hs @@ -1259,6 +1259,7 @@ runPhase (RealPhase SplitAs) _input_fn dflags osuf = objectSuf dflags split_odir = base_o ++ "_" ++ osuf ++ "_split" + -- this also creates the hierarchy liftIO $ createDirectoryIfMissing True split_odir -- remove M_split/ *.o, because we're going to archive M_split/ *.o @@ -1469,6 +1470,7 @@ runPhase (RealPhase MergeStub) input_fn dflags = do PipeState{maybe_stub_o} <- getPipeState output_fn <- phaseOutputFilename StopLn + liftIO $ createDirectoryIfMissing True (takeDirectory output_fn) case maybe_stub_o of Nothing -> panic "runPhase(MergeStub): no stub" |