Creating a non-existent directory in the root directory silently fails

[mineo]

» git rev-parse HEAD
2cb6678
» cabal repl
Preprocessing library directory-1.2.1.1...
[1 of 1] Compiling System.Directory ( System/Directory.hs, dist/build/System/Directory.o )
[...]
*System.Directory> createDirectoryIfMissing True "/foo"
*System.Directory> createDirectoryIfMissing True "/foo/bar"
*** Exception: /foo/bar: createDirectory: does not exist (No such file or directory)

AFAICT

directory/System/Directory.hs

Line 408 in 68f85c8

) `E.catch` ((\_ -> return ()) :: IOException -> IO ())

is swallowing the exception thrown by

directory/System/Directory.hs

Line 406 in 68f85c8

else throw e

.

[jpvillaisaza]

Line 408 is the one ignoring the error, but the error is in line 403, not 406. I think. Posix.getFileStatus throws an exception and line 408 does a return () after that.

[jpvillaisaza]

We could modify line 408:

) `E.catch` ((\_ -> return ()) :: IOException -> IO ())

Do we really need to do a E.catch and then a return ()? Why not throw instead of return () or no E.catch at all?

[jpvillaisaza]

Also, isAlreadyExistsError and isPermissionError (Line 396) are handled together. They should be separate so than we can get an exception if there is a permissions error.