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