From aa83cb804105594d43c2002352f2b1d9f9db3c45 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 17 Jul 2023 21:30:21 +0200
Subject: Send direct messages using identity

---
 src/Main.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index aee0cc6..a84e820 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -303,7 +303,10 @@ cmdSend :: Command
 cmdSend = void $ do
     Just peer <- gets csPeer
     text <- asks ciLine
-    smsg <- sendDirectMessage peer $ T.pack text
+    powner <- peerIdentity peer >>= \case
+        PeerIdentityFull pid -> return $ finalOwner pid
+        _ -> throwError "incomplete peer identity"
+    smsg <- sendDirectMessage powner $ T.pack text
     tzone <- liftIO $ getCurrentTimeZone
     liftIO $ putStrLn $ formatMessage tzone $ fromStored smsg
 
-- 
cgit v1.2.3