diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-16 10:54:15 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-16 11:16:06 +0200 |
| commit | 896931339ac254c2bbfa0e2d0b780ad918a57b34 (patch) | |
| tree | 7923e453dc42c3cc2005a83a627ad00793ef2d87 /src/Erebos/Chatroom.hs | |
| parent | dc8be3ac86b92c791b398559d5f1132121d0e7ea (diff) | |
Helpers for server storage watchers
Diffstat (limited to 'src/Erebos/Chatroom.hs')
| -rw-r--r-- | src/Erebos/Chatroom.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Erebos/Chatroom.hs b/src/Erebos/Chatroom.hs index a7ba46d..9c15c57 100644 --- a/src/Erebos/Chatroom.hs +++ b/src/Erebos/Chatroom.hs @@ -614,7 +614,7 @@ instance Service ChatroomService where replyPacket emptyPacket { chatRoomQuery = True } serviceStorageWatchers _ = (:[]) $ - SomeStorageWatcher (lookupSharedValue . lsShared . fromStored) syncChatroomsToPeer + someStorageWatcher (lookupSharedValue . lsShared . fromStored) syncChatroomsToPeer syncChatroomsToPeer :: Set ChatroomState -> ServiceHandler ChatroomService () syncChatroomsToPeer set = do |