FIX #2278: don't complain if the -odir directory doesn't exist

we'll create it anyway

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
-import System.Directory        ( doesDirectoryExist )
 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
-  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