From 03c1f809b23d5ab1613ce5633acc9706469587c1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 2 Aug 2026 20:57:05 +0200
Subject: Make head caches available in service storage watchers

---
 src/Erebos/DirectMessage.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/Erebos/DirectMessage.hs b/src/Erebos/DirectMessage.hs
index e3e5e97..6eb8a8c 100644
--- a/src/Erebos/DirectMessage.hs
+++ b/src/Erebos/DirectMessage.hs
@@ -152,8 +152,8 @@ instance Service DirectMessage where
         updateDirectMessagePeer . finalOwner =<< asks svcPeerIdentity
 
     serviceStorageWatchers _ =
-        [ SomeStorageWatcher (lookupSharedValue . lsShared . fromStored) syncDirectMessageToPeer
-        , GlobalStorageWatcher (lookupSharedValue . lsShared . fromStored) findMissingPeers
+        [ SomeStorageWatcherHC lookupSharedValueHC syncDirectMessageToPeer
+        , GlobalStorageWatcherH lookupSharedValueH findMissingPeers
         ]
 
 
-- 
cgit v1.2.3