composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-08-16 23:10:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix up

Browse Source
This commit is contained in:
Ranjeet Kumar Ranjan 2023-08-25 09:45:23 +05:30
parent 2a6dd50403
commit 6d6035ff3a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/src/Streamly/Internal/Data/IORef/Unboxed.hs
View File

@ -52,7 +52,7 @@ import qualified Streamly.Internal.Data.Stream.Type as D
-- | An 'IORef' holds a single 'Unbox'-able value with offset.
data IORef a = IORef !MutableByteArray !Int
-- | Create a new 'IORef' starting at index '0'.
-- | Create a new 'IORef'.
--
-- /Pre-release/
{-# INLINE newIORef #-}
@ -82,8 +82,8 @@ readIORef (IORef var o) = peekByteIndex o var
{-# INLINE modifyIORef' #-}
modifyIORef' :: Unbox a => IORef a -> (a -> a) -> IO ()
modifyIORef' var g = do
x <- readIORef var
writeIORef var (g x)
x <- readIORef var
writeIORef var (g x)
-- | Generate a stream by continuously reading the IORef.
--