diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-06-06 09:21:00 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-06-07 14:53:44 +0200 |
| commit | 3750d72e21dbb2c752643875ed84478eb58efd19 (patch) | |
| tree | 704137673173a3c042d16ae1f9c9cad040a114aa /src/Erebos | |
| parent | 717fbbe7720f64b305668a9d28b1007fd8d0595e (diff) | |
Pass parameter to service storage watcher consistent with MonadHead instance
Diffstat (limited to 'src/Erebos')
| -rw-r--r-- | src/Erebos/Network.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Erebos/Network.hs b/src/Erebos/Network.hs index 7f0bbbf..92f62ff 100644 --- a/src/Erebos/Network.hs +++ b/src/Erebos/Network.hs @@ -333,11 +333,11 @@ startServer serverOptions serverOrigHead logd' serverServices = do forM_ serverServices $ \(SomeService service _) -> do forM_ (serviceStorageWatchers service) $ \case SomeStorageWatcher sel act -> do - watchHeadWith serverOrigHead (sel . headStoredObject) $ \x -> do + watchHeadWith serverOrigHead (sel . headStoredObject) $ \_ -> do withMVar serverPeers $ mapM_ $ \peer -> atomically $ do readTVar (peerIdentityVar peer) >>= \case PeerIdentityFull _ -> writeTQueue serverIOActions $ do - runPeerService peer $ act x + runPeerService peer $ act . sel =<< svcGetLocal _ -> return () GlobalStorageWatcher sel act -> do watchHeadWith serverOrigHead (sel . headStoredObject) $ \x -> do |