diff options
Diffstat (limited to 'dht/src/Network/Lossless.hs')
| -rw-r--r-- | dht/src/Network/Lossless.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/dht/src/Network/Lossless.hs b/dht/src/Network/Lossless.hs index 079f4d07..41203ca5 100644 --- a/dht/src/Network/Lossless.hs +++ b/dht/src/Network/Lossless.hs | |||
| @@ -49,9 +49,9 @@ lossless :: Show addr => | |||
| 49 | -> addr -- ^ The remote address for this session. | 49 | -> addr -- ^ The remote address for this session. |
| 50 | -> TransportA String addr x y -- ^ An unreliable lossy transport. | 50 | -> TransportA String addr x y -- ^ An unreliable lossy transport. |
| 51 | 51 | ||
| 52 | -> IO ( Transport String addr' x' -- ^ A reliable lossless transport. | 52 | -> IO ( Transport String addr' x' -- A reliable lossless transport. |
| 53 | , [Word32] -> IO () -- ^ Use this to request lost packets be re-sent. | 53 | , [Word32] -> IO () -- Use this to request lost packets be re-sent. |
| 54 | , IO ([Word32],Word32) -- ^ Use this to discover missing packets to request. | 54 | , IO ([Word32],Word32) -- Use this to discover missing packets to request. |
| 55 | ) | 55 | ) |
| 56 | lossless lbl isLossless encode saddr udp = do | 56 | lossless lbl isLossless encode saddr udp = do |
| 57 | pb <- atomically newPacketBuffer | 57 | pb <- atomically newPacketBuffer |