diff options
| author | joe <joe@jerkface.net> | 2013-07-19 19:50:08 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2013-07-19 19:50:08 -0400 |
| commit | c3183ee2fecce27a2936e08f87890e9cac1ddf3f (patch) | |
| tree | 5fa70d06690a0a2dccc1942104cdfe9cd42b0760 /Presence/main.hs | |
| parent | 64d92876256f6d13b6f09160118e81427a74f291 (diff) | |
indicated client's prefered resource id in debug message
Diffstat (limited to 'Presence/main.hs')
| -rw-r--r-- | Presence/main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Presence/main.hs b/Presence/main.hs index 593bb4bb..19b31ab9 100644 --- a/Presence/main.hs +++ b/Presence/main.hs | |||
| @@ -172,7 +172,7 @@ instance JabberClientSession ClientSession where | |||
| 172 | rsc <- readIORef (unix_resource s) | 172 | rsc <- readIORef (unix_resource s) |
| 173 | let rsc' = maybe wanted_resource id rsc | 173 | let rsc' = maybe wanted_resource id rsc |
| 174 | writeIORef (unix_resource s) (Just rsc') | 174 | writeIORef (unix_resource s) (Just rsc') |
| 175 | debugL $ "CLIENT SESSION: resource " <++> rsc' | 175 | debugL $ "CLIENT SESSION: resource " <++> rsc' <++> " (wanted: "<++>wanted_resource<++>")" |
| 176 | 176 | ||
| 177 | getJID s = do | 177 | getJID s = do |
| 178 | let host = localhost s | 178 | let host = localhost s |