From 6f0bcff200598d085c89d167aa126d25fc5df3ed Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Mon, 3 Feb 2020 22:29:31 +0100 Subject: Service: stored or ref-only reply packet Use the ref-only packet to acknowledge successful storage of received direct message. --- src/Message.hs | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) (limited to 'src/Message.hs') diff --git a/src/Message.hs b/src/Message.hs index bfb4b66..ee59dad 100644 --- a/src/Message.hs +++ b/src/Message.hs @@ -84,14 +84,11 @@ instance Service DirectMessageService where shared <- makeSharedStateUpdate st [next] (lsShared $ fromStored erb) wrappedStore st (fromStored erb) { lsShared = [shared] } svcSetLocal erb' - if powner `sameIdentity` msgFrom msg - then do - svcPrint $ formatMessage tzone msg - return $ Just $ DirectMessagePacket smsg - else return Nothing - - else do svcPrint "Owner mismatch" - return Nothing + when (powner `sameIdentity` msgFrom msg) $ do + svcPrint $ formatMessage tzone msg + replyStoredRef packet + + else svcPrint "Owner mismatch" instance Storable (ServicePacket DirectMessageService) where store' (DirectMessagePacket smsg) = store' smsg -- cgit v1.2.3