naskya/vervis
1
0
Fork 0
mirror of https://code.naskya.net/repos/ndqEd synced 2025-03-20 15:14:54 +09:00
Code Activity

Implement outbox remote delivery, in handler and periodic, not used yet

Browse source
This commit is contained in:
fr33domlover 2019-04-16 14:27:50 +00:00
parent 7946fe441d
commit d5eefd1553
11 changed files with 490 additions and 394 deletions
src/Control/Concurrent
ResultShare.hs

2
src/Control/Concurrent/ResultShare.hs
View file

@ -63,7 +63,7 @@ data ResultShare m k v a = ResultShare
}
newResultShare
:: MonadIO m => ResultShareSettings m k v a -> m (ResultShare m k v a)
:: MonadIO n => ResultShareSettings m k v a -> n (ResultShare m k v a)
newResultShare (ResultShareSettings fork action) = do
tvar <- liftIO $ newTVarIO M.empty
return $ ResultShare tvar fork action