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.hs | |
parent | b94122bfb91a37bb141fdff05573cc02fd93c942 (diff) |
Removed unused arguments to setEstablished/setTerminated.
Diffstat (limited to 'src/Network/Tox.hs')
-rw-r--r-- | src/Network/Tox.hs | 2 |
1 files changed, 1 insertions, 1 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 | |||
379 | ++ ") failure. (Still have sessions: [" | 379 | ++ ") failure. (Still have sessions: [" |
380 | ++ Data.List.intercalate "," (map showsession relevantSessions) | 380 | ++ Data.List.intercalate "," (map showsession relevantSessions) |
381 | ++ "]" | 381 | ++ "]" |
382 | _ -> Right <$> setTerminated now (ncTheirPublicKey session) account | 382 | _ -> Right <$> setTerminated (ncTheirPublicKey session) account |
383 | Nothing -> return . Left $ "(defaultDestroyHook) their is no account! pubkey=" ++ show (key2id (ncTheirPublicKey session)) | 383 | Nothing -> return . Left $ "(defaultDestroyHook) their is no account! pubkey=" ++ show (key2id (ncTheirPublicKey session)) |
384 | case r of | 384 | case r of |
385 | Left msg -> dput XMan msg | 385 | Left msg -> dput XMan msg |