mirror of
https://github.com/barrucadu/dejafu.git
synced 2024-11-23 14:14:36 +03:00
parent
e8a056aa3b
commit
8a16a25d62
@ -732,6 +732,8 @@ updateMaskState tid (Fork tid2) = \masks -> case M.lookup tid masks of
|
||||
Nothing -> masks
|
||||
updateMaskState tid (SetMasking _ ms) = M.insert tid ms
|
||||
updateMaskState tid (ResetMasking _ ms) = M.insert tid ms
|
||||
updateMaskState tid (Throw True) = M.delete tid
|
||||
updateMaskState _ (ThrowTo tid True) = M.delete tid
|
||||
updateMaskState tid Stop = M.delete tid
|
||||
updateMaskState _ _ = id
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user