diff options
Diffstat (limited to 'ToxManager.hs')
| -rw-r--r-- | ToxManager.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ToxManager.hs b/ToxManager.hs index bcc4d86d..360f78e8 100644 --- a/ToxManager.hs +++ b/ToxManager.hs | |||
| @@ -78,7 +78,7 @@ toxman announcer toxbkts tox presence = ToxManager | |||
| 78 | forM_ newlyActive $ \nearNodes -> do | 78 | forM_ newlyActive $ \nearNodes -> do |
| 79 | -- Schedule recurring announce. | 79 | -- Schedule recurring announce. |
| 80 | -- | 80 | -- |
| 81 | akey <- atomically $ packAnnounceKey announcer $ "toxid:" ++ show pubid | 81 | let akey = packAnnounceKey announcer $ "toxid:" ++ show pubid |
| 82 | scheduleAnnounce announcer | 82 | scheduleAnnounce announcer |
| 83 | akey | 83 | akey |
| 84 | (AnnounceMethod (toxQSearch tox) | 84 | (AnnounceMethod (toxQSearch tox) |
| @@ -109,7 +109,7 @@ toxman announcer toxbkts tox presence = ToxManager | |||
| 109 | -- Stop the recurring search for that contact | 109 | -- Stop the recurring search for that contact |
| 110 | -- | 110 | -- |
| 111 | -- Stop recurring announce. | 111 | -- Stop recurring announce. |
| 112 | akey <- packAnnounceKey announcer ("toxid:" ++ show pubid) | 112 | let akey = packAnnounceKey announcer ("toxid:" ++ show pubid) |
| 113 | fmap Just $ forM toxbkts $ \(nm,bkts) -> do | 113 | fmap Just $ forM toxbkts $ \(nm,bkts) -> do |
| 114 | return (akey,bkts) | 114 | return (akey,bkts) |
| 115 | else return Nothing | 115 | else return Nothing |