Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
reflex-frp
GitHub Repository: reflex-frp/reflex-platform
Path: blob/develop/haskell-overlays/ghcjs-8.6/ghcjs-network.patch
1 views
1
diff --git a/Network/Socket.hsc b/Network/Socket.hsc
2
index 4edebd4..43ecdb7 100644
3
--- a/Network/Socket.hsc
4
+++ b/Network/Socket.hsc
5
@@ -479,11 +479,7 @@ setNonBlockIfNeeded fd =
6
--
7
-- Since 2.7.0.0.
8
setCloseOnExecIfNeeded :: CInt -> IO ()
9
-#if defined(mingw32_HOST_OS)
10
setCloseOnExecIfNeeded _ = return ()
11
-#else
12
-setCloseOnExecIfNeeded fd = System.Posix.Internals.setCloseOnExec fd
13
-#endif
14
15
#if !defined(mingw32_HOST_OS)
16
foreign import ccall unsafe "fcntl"
17
18