Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
jberryman
GHC
Commits
523c7698
Commit
523c7698
authored
Jun 22, 2009
by
Simon Marlow
Browse files
follow change in System.Posix.Internals.c_open
parent
6cb71745
Changes
1
Hide whitespace changes
Inline
Side-by-side
utils/ghc-pkg/Main.hs
View file @
523c7698
...
...
@@ -1342,8 +1342,12 @@ openNewFile dir template = do
oflags
=
rw_flags
.|.
o_EXCL
#
if
__GLASGOW_HASKELL__
<
611
withFilePath
=
withCString
#
endif
findTempName
x
=
do
fd
<-
with
CString
filepath
$
\
f
->
fd
<-
with
FilePath
filepath
$
\
f
->
c_open
f
oflags
0o666
if
fd
<
0
then
do
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment