network-enumerator 0.1 → 0.1.1
raw patch · 2 files changed
+3/−3 lines, 2 files
Files
Network/Socket/Enumerator.hs view
@@ -64,7 +64,7 @@ iterSocket sock = E.continue step where step E.EOF = E.yield () E.EOF step (E.Chunks []) = E.continue step- step (E.Chunks xs) = try (sendMany sock xs)+ step (E.Chunks xs) = try (sendMany sock xs) >> E.continue step -- | Write data to a 'S.Socket', using 'sendManyTo'. The socket does not -- have to be connected.@@ -75,7 +75,7 @@ iterSocketTo sock addr = E.continue step where step E.EOF = E.yield () E.EOF step (E.Chunks []) = E.continue step- step (E.Chunks xs) = try (sendManyTo sock xs addr)+ step (E.Chunks xs) = try (sendManyTo sock xs addr) >> E.continue step try :: MonadIO m => IO b -> E.Iteratee a m b try io = do
network-enumerator.cabal view
@@ -1,5 +1,5 @@ name: network-enumerator-version: 0.1+version: 0.1.1 synopsis: Enumerators for network sockets license: MIT license-file: license.txt