diff options
| author | Takano Akio <aljee@hyper.cx> | 2012-02-22 10:18:29 +0800 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-02-27 14:35:08 +0000 |
| commit | ffe282cef4213ab8de515a8574d366994d38d5dd (patch) | |
| tree | 019b4599a285dd8d4d141c458f708cc1fb129b4c /compiler/main/CodeOutput.lhs | |
| parent | ebd0ac736a305a5cd573e60f177b2995b37d964b (diff) | |
| download | haskell-ffe282cef4213ab8de515a8574d366994d38d5dd.tar.gz | |
Replace createDirectoryHierarchy with createDirectoryIfMissing True
createDirectoryHierarchy consisted of an existence test followed by
createDirectory, which failed if that directory was creted just after
the test. createDirectoryifMissing does not have this problem.
Diffstat (limited to 'compiler/main/CodeOutput.lhs')
| -rw-r--r-- | compiler/main/CodeOutput.lhs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/main/CodeOutput.lhs b/compiler/main/CodeOutput.lhs index a9ab3f66b7..88ba0b5741 100644 --- a/compiler/main/CodeOutput.lhs +++ b/compiler/main/CodeOutput.lhs @@ -17,7 +17,6 @@ import Finder ( mkStubPaths ) import PprC ( writeCs ) import CmmLint ( cmmLint ) import Packages -import Util import OldCmm ( RawCmmGroup ) import HscTypes import DynFlags @@ -190,7 +189,7 @@ outputForeignStubs dflags mod location stubs stub_h_output_w = showSDoc stub_h_output_d -- in - createDirectoryHierarchy (takeDirectory stub_h) + createDirectoryIfMissing True (takeDirectory stub_h) dumpIfSet_dyn dflags Opt_D_dump_foreign "Foreign export header file" stub_h_output_d |