From c3183ee2fecce27a2936e08f87890e9cac1ddf3f Mon Sep 17 00:00:00 2001 From: joe Date: Fri, 19 Jul 2013 19:50:08 -0400 Subject: indicated client's prefered resource id in debug message --- Presence/main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Presence') 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 rsc <- readIORef (unix_resource s) let rsc' = maybe wanted_resource id rsc writeIORef (unix_resource s) (Just rsc') - debugL $ "CLIENT SESSION: resource " <++> rsc' + debugL $ "CLIENT SESSION: resource " <++> rsc' <++> " (wanted: "<++>wanted_resource<++>")" getJID s = do let host = localhost s -- cgit v1.2.3