From 96b6e5b6e983d09c154a0dd4d44a2916b9cc4ce0 Mon Sep 17 00:00:00 2001
From: Philipp Balzarek <p.balzarek@googlemail.com>
Date: Sun, 19 May 2013 13:27:31 +0200
Subject: [PATCH] derive Show for IMPresence

---
 source/Network/Xmpp/IM/Presence.hs |  2 +-
 tests/Tests.hs                     | 13 +++++++++----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/source/Network/Xmpp/IM/Presence.hs b/source/Network/Xmpp/IM/Presence.hs
index dbfc4f5..d5d3750 100644
--- a/source/Network/Xmpp/IM/Presence.hs
+++ b/source/Network/Xmpp/IM/Presence.hs
@@ -30,7 +30,7 @@ instance Read ShowStatus where
 data IMPresence = IMP { showStatus :: Maybe ShowStatus
                       , status     :: Maybe Text
                       , priority   :: Maybe Int
-                      }
+                      } deriving Show
 
 imPresence :: IMPresence
 imPresence = IMP { showStatus = Nothing
diff --git a/tests/Tests.hs b/tests/Tests.hs
index f9f5867..ba7dadb 100644
--- a/tests/Tests.hs
+++ b/tests/Tests.hs
@@ -80,8 +80,13 @@ iqResponder context = do
 
 autoAccept :: Xmpp ()
 autoAccept context = forever $ do
-  st <- waitForPresence (\p -> presenceType p == Just Subscribe) context
-  sendPresence (presenceSubscribed (fromJust $ presenceFrom st)) context
+    st <- waitForPresence (\p -> presenceType p == Subscribe) context
+    sendPresence (presenceSubscribed (fromJust $ presenceFrom st)) context
+
+showPresence context = forever $ do
+    pr <- waitForPresence (const True) context
+    print $ getIMPresence pr
+
 
 simpleMessage :: Jid -> Text -> Message
 simpleMessage to txt = message
@@ -169,12 +174,12 @@ runMain debug number multi = do
                 config
   sendPresence presenceOnline context
   thread1 <- forkIO $ autoAccept =<< dupSession context
-  sendPresence (presenceSubscribe them) context
   thread2 <- forkIO $ iqResponder =<< dupSession context
+  thread2 <- forkIO $ showPresence =<< dupSession context
   when active $ do
     liftIO $ threadDelay 1000000 -- Wait for the other thread to go online
 --    discoTest debug'
-    when multi $ iqTest debug' we them context
+--    when multi $ iqTest debug' we them context
     killThread thread1
     killThread thread2
   return ()