diff options
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 |