From 3750d72e21dbb2c752643875ed84478eb58efd19 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Sat, 6 Jun 2026 09:21:00 +0200 Subject: Pass parameter to service storage watcher consistent with MonadHead instance --- src/Erebos/Network.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') 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 -- cgit v1.2.3