5d711c8 · typeable/wai

git.iko.soy/typeable/wai

on master help sign in

don't use deprecated CRT functions on Windows

5d711c8Holger Reinhardt10 years ago

wai-extra/Network/Wai/Handler/SCGI.hs+12−1

@@ -1,4 +1,4 @@

1−{-# LANGUAGE ForeignFunctionInterface #-}

1+{-# LANGUAGE CPP, ForeignFunctionInterface #-}

2module Network.Wai.Handler.SCGI

3 ( run

4 , runSendfile

@@ -86,6 +86,16 @@ readByteString socket len = do

86foreign import ccall unsafe "accept"

87 c'accept :: CInt -> Ptr a -> Ptr a -> IO CInt

89+#if WINDOWS

90+foreign import ccall unsafe "_close"

91+ c'close :: CInt -> IO CInt

92+

93+foreign import ccall unsafe "_write"

94+ c'write :: CInt -> Ptr CChar -> CInt -> IO CInt

95+

96+foreign import ccall unsafe "_read"

97+ c'read :: CInt -> Ptr CChar -> CInt -> IO CInt

98+#else

89foreign import ccall unsafe "close"

99foreign import ccall unsafe "close"

90 c'close :: CInt -> IO CInt

100 c'close :: CInt -> IO CInt

101

@@ -94,3 +104,4 @@ foreign import ccall unsafe "write"

104

95foreign import ccall unsafe "read"

105foreign import ccall unsafe "read"

96 c'read :: CInt -> Ptr CChar -> CInt -> IO CInt

106 c'read :: CInt -> Ptr CChar -> CInt -> IO CInt

107+#endif