edf9b36 · streamly · git.iko.soy

git.iko.soy/streamly

implement useSocket using finally instead of bracket

commitedf9b3646d17e08996ea2e3caf487845e2f08cf0 authorHarendra Kumar <harendra.kumar@gmail.com> dateSat 12 Oct 2019, 12:21 (7 years ago) parent3093e79

1 file changed+1−1

unifiedsplit

src/Streamly/Internal/Network/Socket.hs+1−1

@@ -110,7 +110,7 @@ useSocketM sk f = finally (liftIO (Net.close sk)) (f sk)

110110{-# INLINE useSocket #-}

111111useSocket :: (IsStream t, MonadCatch m, MonadIO m)

112112 => Socket -> (Socket -> t m a) -> t m a

113−useSocket sk = S.bracket (return sk) (liftIO . Net.close)

113+useSocket sk f = S.finally (liftIO $ Net.close sk) (f sk)

114114

115115-------------------------------------------------------------------------------

116116-- Array IO (Input)