projects
/
haskell-directory.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
2023ef9
)
[project @ 2005-07-26 11:00:42 by ross]
author
ross
<unknown>
Tue, 26 Jul 2005 11:00:42 +0000
(11:00 +0000)
committer
ross
<unknown>
Tue, 26 Jul 2005 11:00:42 +0000
(11:00 +0000)
this version of closeFd is used by GHC only
System/Posix/Internals.hs
patch
|
blob
|
history
diff --git
a/System/Posix/Internals.hs
b/System/Posix/Internals.hs
index
a840e55
..
02fec17
100644
(file)
--- a/
System/Posix/Internals.hs
+++ b/
System/Posix/Internals.hs
@@
-120,7
+120,7
@@
statGetType p_stat = do
ioe_unknownfiletype = IOError Nothing UnsupportedOperation "fdType"
"unknown file type" Nothing
-#if defined(mingw32_HOST_OS) || defined(__MINGW32__)
+#if __GLASGOW_HASKELL__ && (defined(mingw32_HOST_OS) || defined(__MINGW32__))
closeFd :: Bool -> CInt -> IO CInt
closeFd isStream fd
| isStream = c_closesocket fd