git.iko.soy/streamly
on master help sign in
implement useSocket using finally instead of bracket
edf9b36Harendra Kumar
src/Streamly/Internal/Network/Socket.hs+1−1
compare with master
unifiedsplit
@@ -110,7 +110,7 @@ useSocketM sk f = finally (liftIO (Net.close sk)) (f sk)
110{-# INLINE useSocket #-}
110{-# INLINE useSocket #-}
111useSocket :: (IsStream t, MonadCatch m, MonadIO m)
111useSocket :: (IsStream t, MonadCatch m, MonadIO m)
112 => Socket -> (Socket -> t m a) -> t m a
112 => 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)
114
114
115-------------------------------------------------------------------------------
115-------------------------------------------------------------------------------
116-- Array IO (Input)
116-- Array IO (Input)