git.iko.soy/streamly
on master help sign in
Remove deprecated functions in Socket/TCP
8b84d54Harendra Kumar
src/Streamly/Network/Inet/TCP.hs−22
compare with master
unifiedsplit
@@ -48,10 +48,6 @@ module Streamly.Network.Inet.TCP
48 , datagrams
48 , datagrams
49 , datagramsOn
49 , datagramsOn
50 -}
50 -}
51− -- * Deprecated
52− , acceptOnAddr
53− , acceptOnPort
54− , acceptOnPortLocal
55 )
51 )
56where
52where
57
53
@@ -61,21 +57,3 @@ import Network.Socket (Socket, PortNumber)
61import Streamly.Internal.Data.Unfold (Unfold(..))
57import Streamly.Internal.Data.Unfold (Unfold(..))
62
58
63import Streamly.Internal.Network.Inet.TCP
59import 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
121 , forSocketM
121 , forSocketM
122
122
123 -- * Deprecated
123 -- * Deprecated
124− , accept
125 , readChunk
124 , readChunk
126 , writeChunk
125 , writeChunk
127 , readWithBufferOf
126 , readWithBufferOf
@@ -138,14 +137,9 @@ import Streamly.Internal.Data.Unfold (Unfold(..))
138import Streamly.Internal.Data.Array (Array(..))
137import Streamly.Internal.Data.Array (Array(..))
139import Streamly.Data.MutByteArray (Unbox)
138import Streamly.Data.MutByteArray (Unbox)
140
139
141−import Streamly.Internal.Network.Socket hiding (accept, read, readChunks)
140+import Streamly.Internal.Network.Socket
142import Prelude hiding (read)
141import Prelude hiding (read)
143
142
144−{-# DEPRECATED accept "Please use 'acceptor' instead" #-}
145−{-# INLINE accept #-}
146−accept :: MonadIO m => Unfold m (Int, SockSpec, SockAddr) Socket
147−accept = acceptor
148−
149{-# DEPRECATED readChunk "Please use 'getChunk' instead" #-}
143{-# DEPRECATED readChunk "Please use 'getChunk' instead" #-}
150{-# INLINABLE readChunk #-}
144{-# INLINABLE readChunk #-}
151readChunk :: Int -> Socket -> IO (Array Word8)
145readChunk :: Int -> Socket -> IO (Array Word8)