voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

most probably fix rpc lock issue

This commit is contained in:
voidlizard 2025-02-15 13:51:36 +03:00
parent dd310888a5
commit 8ca4dd79bf
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-core/lib/HBS2/Net/Proto/Service.hs
View File

@ -131,13 +131,11 @@ makeRequestR :: forall api method e m . ( KnownNat (FromJust (FindMethodIndex 0
)
=> Input method -> m (ServiceProto api e)
makeRequestR input = do
t <- getTimeCoarse <&> round @_ @Word64 . realToFrac
n <- liftIO $ randomIO @Word64
rnum <- atomically do
n <- readTVar rnumnum
modifyTVar' rnumnum succ
pure (fromIntegral $ hash (n+t))
pure (fromIntegral n)
pure $ ServiceRequest rnum (serialise (fromIntegral idx :: Int, serialise input))
where