Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
5c8feaae
Commit
5c8feaae
authored
Nov 27, 2001
by
sof
Browse files
[project @ 2001-11-27 01:53:23 by sof]
removed ToDo comment + braino
parent
e30e0fb8
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/lib/std/PrelHandle.hs
View file @
5c8feaae
...
...
@@ -4,7 +4,7 @@
#
undef
DEBUG
-- -----------------------------------------------------------------------------
-- $Id: PrelHandle.hs,v 1.
5
2001/11/2
6 23
:5
5
:2
7
sof Exp $
-- $Id: PrelHandle.hs,v 1.
6
2001/11/2
7 01
:5
3
:2
3
sof Exp $
--
-- (c) The University of Glasgow, 1994-2001
--
...
...
@@ -307,10 +307,9 @@ handleFinalizer m = do
flushWriteBufferOnly
h_
let
fd
=
fromIntegral
(
haFD
h_
)
unlockFile
fd
-- ToDo: closesocket() for a WINSOCK socket?
when
(
fd
/=
-
1
)
#
ifdef
mingw32_TARGET_OS
(
closeFd
(
haIsStream
h
andle
_
)
fd
>>
return
()
)
(
closeFd
(
haIsStream
h_
)
fd
>>
return
()
)
#
else
(
c_close
fd
>>
return
()
)
#
endif
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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