Commit 523c7698 authored by Simon Marlow's avatar Simon Marlow
Browse files

follow change in System.Posix.Internals.c_open

parent 6cb71745
......@@ -1342,8 +1342,12 @@ openNewFile dir template = do
oflags = rw_flags .|. o_EXCL
#if __GLASGOW_HASKELL__ < 611
withFilePath = withCString
#endif
findTempName x = do
fd <- withCString filepath $ \ f ->
fd <- withFilePath filepath $ \ f ->
c_open f oflags 0o666
if fd < 0
then do
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment