git.iko.soy/streamly
on master help sign in
Correct the order of arguments in finally.
3315e1aHarendra Kumar
examples/EchoServer.hs+2−2
compare with master
unifiedsplit
@@ -11,9 +11,9 @@ import qualified Streamly.Prelude as S
11main :: IO ()
11main :: IO ()
12main = S.drain
12main = S.drain
13 $ parallely $ S.mapM (useWith echo)
13 $ parallely $ S.mapM (useWith echo)
14− $ serially $ S.unfold TCP.acceptOnPort 8090
14+ $ serially $ S.unfold TCP.acceptOnPort 8091
15 where
15 where
16 echo sk =
16 echo sk =
17 S.fold (writeChunks sk)
17 S.fold (writeChunks sk)
18 $ S.unfold readChunksWithBufferOf (32768, sk)
18 $ S.unfold readChunksWithBufferOf (32768, sk)
19− useWith f sk = finally (liftIO (Net.close sk)) (f sk)
19+ useWith f sk = finally (f sk) (liftIO (Net.close sk))
src/Streamly/Internal/Network/Socket.hs+1−1
@@ -117,7 +117,7 @@ import qualified Streamly.Internal.Data.Stream.StreamD.Type as D
117-- @since 0.7.0
117-- @since 0.7.0
118{-# INLINE useSocketM #-}
118{-# INLINE useSocketM #-}
119useSocketM :: (MonadMask m, MonadIO m) => Socket -> (Socket -> m ()) -> m ()
119useSocketM :: (MonadMask m, MonadIO m) => Socket -> (Socket -> m ()) -> m ()
120−useSocketM sk f = finally (liftIO (Net.close sk)) (f sk)
120+useSocketM sk f = finally (f sk) (liftIO (Net.close sk))
121
121
122-- | Like 'useSocketM' but runs a streaming computation instead of a monadic
122-- | Like 'useSocketM' but runs a streaming computation instead of a monadic
123-- computation.
123-- computation.