createDirectoryIfMissing fails if directory exists on 32-bit windows

createDirectoryIfMissing generates an exception when running on 32-bit windows.

$ ./dirbug.exe "c:\\cygwin\\home\\hudson\\tmp\\dirBug\\foo"
dirbug.exe: CreateDirectory: invalid argument (Cannot create a file when that file already exists.)

I've verified this behavior with 32-bit vista with c and asm backends using ghc 6.12.1 and 6.10.4.

import System.Directory ( createDirectoryIfMissing )

--
--  6.12.1 fails with:
--   $ ghc -fvia-c
--   $ ghc -fasm
--
-- 6.10.4 fails with:
--   $ ghc -fasm
--   $ ghc -fvia-c

main :: IO ()
main = do
  createDirectoryIfMissing True "foo"
  createDirectoryIfMissing True "foo"

This does *not* throw an exception on 64-bit vista, and this also does not throw an exception when running interpreted (either ghci or runhaskell).

Trac metadata

Trac field	Value
Version	6.12.1
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	libraries/directory
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture