Removed unused arguments to setEstablished/setTerminated.

2 files changed, 5 insertions, 5 deletions

diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs
index 7011618c..c1cdb151 100644
--- a/src/Network/Tox.hs
+++ b/src/Network/Tox.hs
@@ -379,7 +379,7 @@ mkDefaultDestroyHook roster = \session -> do
                                             ++ ") failure. (Still have sessions: ["
                                             ++ Data.List.intercalate "," (map showsession relevantSessions)
                                             ++ "]"
-                    _ -> Right <$> setTerminated now (ncTheirPublicKey session) account
+                    _ -> Right <$> setTerminated (ncTheirPublicKey session) account
             Nothing -> return . Left $ "(defaultDestroyHook) their is no account! pubkey=" ++ show (key2id (ncTheirPublicKey session))
    case r of
     Left msg -> dput XMan msg
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
       Nothing                    -> update >> notify -- or if we don't have any
       _                          -> return () -- otherwise just wait
 
-setEstablished :: POSIXTime -> PublicKey -> Account extra -> STM ()
-setEstablished now remoteUserKey acc =
+setEstablished :: PublicKey -> Account extra -> STM ()
+setEstablished remoteUserKey acc =
     writeTChan (eventChan acc) $ SessionEstablished remoteUserKey
 
-setTerminated :: POSIXTime -> PublicKey -> Account extra -> STM ()
-setTerminated now remoteUserKey acc =
+setTerminated :: PublicKey -> Account extra -> STM ()
+setTerminated remoteUserKey acc =
     writeTChan (eventChan acc) $ SessionTerminated remoteUserKey