diff options
author | Roman Smrž <roman.smrz@seznam.cz> | 2023-07-02 21:38:45 +0200 |
---|---|---|
committer | Roman Smrž <roman.smrz@seznam.cz> | 2023-07-02 21:52:57 +0200 |
commit | 2278e5f103ed9c4f0e2c28bed82aae3639e7b46f (patch) | |
tree | 29103482b8e8d701e7277784857852770bdf7f9c /src/Test.hs | |
parent | edafccea465f1f9448a1a7ae555b8615e5b5ac1b (diff) |
Send direct message using local head monad
Diffstat (limited to 'src/Test.hs')
-rw-r--r-- | src/Test.hs | 3 |
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 |