From cb3e2abade4a0aa1ad13f4aa1632b1e05af4d29a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 2 Aug 2026 15:42:34 +0200
Subject: Use cached values for shared state lookups

---
 src/Erebos/Discovery.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Erebos/Discovery.hs')

diff --git a/src/Erebos/Discovery.hs b/src/Erebos/Discovery.hs
index 71929e3..6c86e83 100644
--- a/src/Erebos/Discovery.hs
+++ b/src/Erebos/Discovery.hs
@@ -667,7 +667,7 @@ instance Service DiscoveryService where
 
         searchForOwner <- asks (discoverySearchForOwner . svcAttributes) >>= \case
             True -> do
-                (lookupSharedValue . lsShared . fromStored <$> getLocalHead) >>= \case
+                lookupSharedValueM >>= \case
                     Just (self :: ComposedIdentity) -> do
                         return $ S.fromList $ map (refDigest . storedRef) $ idDataF self
                     Nothing -> do
-- 
cgit v1.2.3