polysemy-research/polysemy
1
1
Fork 0
mirror of https://github.com/polysemy-research/polysemy.git synced 2024-12-25 15:05:03 +03:00
Code Issues Projects Releases Wiki Activity

fix typo

Browse Source
This commit is contained in:
Torsten Schmits 2022-01-04 23:45:25 +01:00
parent 791cd36001
commit dd65cc3bae
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Polysemy/Internal/Writer.hs
View File

@ -148,8 +148,8 @@ runWriterSTMAction write = interpretH $ \case
-> o
-> STM ()
writeListen tvar switch = \o -> do
alreadyCommited <- readTVar switch
unless alreadyCommited $ do
alreadyCommitted <- readTVar switch
unless alreadyCommitted $ do
s <- readTVar tvar
writeTVar tvar $! s <> o
write o
@ -184,8 +184,8 @@ runWriterSTMAction write = interpretH $ \case
o <- readTVar tvar
let !o' = f o
-- Likely redundant, but doesn't hurt.
alreadyCommited <- readTVar switch
unless alreadyCommited $
alreadyCommitted <- readTVar switch
unless alreadyCommitted $
write o'
writeTVar switch True
{-# INLINE commitPass #-}