From cc132e005f974577c2ff782add7df8247c4eb541 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Tue, 29 Dec 2020 21:39:19 +0100
Subject: Discovery service

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

(limited to 'src/Message.hs')

diff --git a/src/Message.hs b/src/Message.hs
index 2d00de2..04ddef1 100644
--- a/src/Message.hs
+++ b/src/Message.hs
@@ -52,7 +52,7 @@ instance Service DirectMessage where
 
     serviceHandler smsg = do
         let msg = fromStored smsg
-        powner <- asks $ finalOwner . svcPeer
+        powner <- asks $ finalOwner . svcPeerIdentity
         tzone <- liftIO $ getCurrentTimeZone
         erb <- svcGetLocal
         let st = storedStorage erb
-- 
cgit v1.2.3