projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
648718b
)
FIX #2278: don't complain if the -odir directory doesn't exist
author
Simon Marlow
<marlowsd@gmail.com>
Fri, 11 Jul 2008 13:43:01 +0000
(13:43 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Fri, 11 Jul 2008 13:43:01 +0000
(13:43 +0000)
we'll create it anyway
compiler/main/Main.hs
patch
|
blob
|
history
diff --git
a/compiler/main/Main.hs
b/compiler/main/Main.hs
index
a42a678
..
a91df13
100644
(file)
--- a/
compiler/main/Main.hs
+++ b/
compiler/main/Main.hs
@@
-46,7
+46,6
@@
import Panic
-- Standard Haskell libraries
import Control.Exception ( throwDyn )
import System.IO
-- Standard Haskell libraries
import Control.Exception ( throwDyn )
import System.IO
-import System.Directory ( doesDirectoryExist )
import System.Environment
import System.Exit
import System.FilePath
import System.Environment
import System.Exit
import System.FilePath
@@
-285,11
+284,7
@@
checkOptions cli_mode dflags srcs objs = do
--
verifyOutputFiles :: DynFlags -> IO ()
verifyOutputFiles dflags = do
--
verifyOutputFiles :: DynFlags -> IO ()
verifyOutputFiles dflags = do
- let odir = objectDir dflags
- when (isJust odir) $ do
- let dir = fromJust odir
- flg <- doesDirectoryExist dir
- when (not flg) (nonExistentDir "-odir" dir)
+ -- not -odir: we create the directory for -odir if it doesn't exist (#2278).
let ofile = outputFile dflags
when (isJust ofile) $ do
let fn = fromJust ofile
let ofile = outputFile dflags
when (isJust ofile) $ do
let fn = fromJust ofile