summaryrefslogtreecommitdiff
path: root/src/Test.hs
diff options
context:
space:
mode:
authorRoman Smrž <roman.smrz@seznam.cz>2023-07-02 21:38:45 +0200
committerRoman Smrž <roman.smrz@seznam.cz>2023-07-02 21:52:57 +0200
commit2278e5f103ed9c4f0e2c28bed82aae3639e7b46f (patch)
tree29103482b8e8d701e7277784857852770bdf7f9c /src/Test.hs
parentedafccea465f1f9448a1a7ae555b8615e5b5ac1b (diff)
Send direct message using local head monad
Diffstat (limited to 'src/Test.hs')
-rw-r--r--src/Test.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Test.hs b/src/Test.hs
index 84505c2..678be18 100644
--- a/src/Test.hs
+++ b/src/Test.hs
@@ -492,6 +492,5 @@ cmdContactSetName = do
cmdDmSendPeer :: Command
cmdDmSendPeer = do
[spidx, msg] <- asks tiParams
- h <- getHead
peer <- getPeer spidx
- void $ sendDirectMessage h peer msg
+ void $ sendDirectMessage peer msg