diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-09-07 12:10:57 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-09-07 13:18:56 -0400 |
| commit | b3b228adf6fd71c089f4d3525b2bc3a6257f7f76 (patch) | |
| tree | a6da817110e93a39b17b35502fd71fab679ca7b5 /src/Network/Tox/ContactInfo.hs | |
| parent | b94122bfb91a37bb141fdff05573cc02fd93c942 (diff) | |
Removed unused arguments to setEstablished/setTerminated.
Diffstat (limited to 'src/Network/Tox/ContactInfo.hs')
| -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 | ||