diff options
Diffstat (limited to 'Presence')
| -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 |