on master help sign in
Remove deprecated functions in Socket/TCP

Different functions with same names are to be introduced in the next release.

commit8b84d54c1027b716f3054d5724c93615aea7b6be authorHarendra Kumar <harendra@composewell.com> dateSun 26 Nov 2023, 05:41 (3 years ago) parent21e02ee
2 files changed+1−29
src/Streamly/Network/Inet/TCP.hs−22 src/Streamly/Network/Socket.hs+1−7
src/Streamly/Network/Inet/TCP.hs−22
@@ -48,10 +48,6 @@ module Streamly.Network.Inet.TCP
4848 , datagrams
4949 , datagramsOn
5050 -}
51− -- * Deprecated
52− , acceptOnAddr
53− , acceptOnPort
54− , acceptOnPortLocal
5551 )
5652where
5753
@@ -61,21 +57,3 @@ import Network.Socket (Socket, PortNumber)
6157import Streamly.Internal.Data.Unfold (Unfold(..))
6258
6359import Streamly.Internal.Network.Inet.TCP
64− hiding (acceptOnAddr, acceptOnPort, acceptOnPortLocal)
65−
66−{-# DEPRECATED acceptOnAddr "Please use 'acceptorOnAddr' instead" #-}
67−{-# INLINE acceptOnAddr #-}
68−acceptOnAddr
69− :: MonadIO m
70− => Unfold m ((Word8, Word8, Word8, Word8), PortNumber) Socket
71−acceptOnAddr = acceptorOnAddr
72−
73−{-# DEPRECATED acceptOnPort "Please use 'acceptorOnPort' instead" #-}
74−{-# INLINE acceptOnPort #-}
75−acceptOnPort :: MonadIO m => Unfold m PortNumber Socket
76−acceptOnPort = acceptorOnPort
77−
78−{-# DEPRECATED acceptOnPortLocal "Please use 'acceptorOnPortLocal' instead" #-}
79−{-# INLINE acceptOnPortLocal #-}
80−acceptOnPortLocal :: MonadIO m => Unfold m PortNumber Socket
81−acceptOnPortLocal = acceptorOnPortLocal
src/Streamly/Network/Socket.hs+1−7
@@ -121,7 +121,6 @@ module Streamly.Network.Socket
121121 , forSocketM
122122
123123 -- * Deprecated
124− , accept
125124 , readChunk
126125 , writeChunk
127126 , readWithBufferOf
@@ -138,14 +137,9 @@ import Streamly.Internal.Data.Unfold (Unfold(..))
138137import Streamly.Internal.Data.Array (Array(..))
139138import Streamly.Data.MutByteArray (Unbox)
140139
141−import Streamly.Internal.Network.Socket hiding (accept, read, readChunks)
140+import Streamly.Internal.Network.Socket
142141import Prelude hiding (read)
143142
144−{-# DEPRECATED accept "Please use 'acceptor' instead" #-}
145−{-# INLINE accept #-}
146−accept :: MonadIO m => Unfold m (Int, SockSpec, SockAddr) Socket
147−accept = acceptor
148−
149143{-# DEPRECATED readChunk "Please use 'getChunk' instead" #-}
150144{-# INLINABLE readChunk #-}
151145readChunk :: Int -> Socket -> IO (Array Word8)