diff options
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 |