diff options
Diffstat (limited to 'src/Network/Tox')
| -rw-r--r-- | src/Network/Tox/ContactInfo.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Network/Tox/ContactInfo.hs b/src/Network/Tox/ContactInfo.hs index 5f144057..387a6e47 100644 --- a/src/Network/Tox/ContactInfo.hs +++ b/src/Network/Tox/ContactInfo.hs | |||
| @@ -116,12 +116,12 @@ setContactAddr now remoteUserKey addr acc = do | |||
| 116 | Nothing -> update >> notify -- or if we don't have any | 116 | Nothing -> update >> notify -- or if we don't have any |
| 117 | _ -> return () -- otherwise just wait | 117 | _ -> return () -- otherwise just wait |
| 118 | 118 | ||
| 119 | setEstablished :: POSIXTime -> PublicKey -> Account extra -> STM () | 119 | setEstablished :: PublicKey -> Account extra -> STM () |
| 120 | setEstablished now remoteUserKey acc = | 120 | setEstablished remoteUserKey acc = |
| 121 | writeTChan (eventChan acc) $ SessionEstablished remoteUserKey | 121 | writeTChan (eventChan acc) $ SessionEstablished remoteUserKey |
| 122 | 122 | ||
| 123 | setTerminated :: POSIXTime -> PublicKey -> Account extra -> STM () | 123 | setTerminated :: PublicKey -> Account extra -> STM () |
| 124 | setTerminated now remoteUserKey acc = | 124 | setTerminated remoteUserKey acc = |
| 125 | writeTChan (eventChan acc) $ SessionTerminated remoteUserKey | 125 | writeTChan (eventChan acc) $ SessionTerminated remoteUserKey |
| 126 | 126 | ||
| 127 | 127 | ||