fixed build errors for EchoClient

examples/EchoClient.hs

@@ -36,24 +36,23 @@ resource = Nothing
 -- TODO: Incomplete code, needs documentation, etc.
 main :: IO ()
 main = do
-    withNewSession $ do
+    session <- newSession
-        withConnection $ simpleConnect hostname username password resource
+    withConnection (simpleConnect hostname username password resource) session
-        sendPresence presenceOnline
+    sendPresence presenceOnline session
-        echo
+    echo session
-        return ()
     return ()
 
 -- Pull message stanzas, verify that they originate from a `full' XMPP
 -- address, and, if so, `echo' the message back.
-echo :: Xmpp ()
+echo :: Session -> IO ()
-echo = forever $ do
+echo session = forever $ do
-    result <- pullMessage
+    result <- pullMessage session
     case result of
         Right message ->
             if (isJust $ messageFrom message) &&
                    (isFull $ fromJust $ messageFrom message) then do
                 -- TODO: May not set from.
-                sendMessage $ Message Nothing (messageTo message) (messageFrom message) Nothing (messageType message) (messagePayload message)
+                sendMessage (Message Nothing (messageTo message) (messageFrom message) Nothing (messageType message) (messagePayload message)) session
                 liftIO $ putStrLn "Message echoed!"
             else liftIO $ putStrLn "Message sender is not set or is bare!"
         Left exception -> liftIO $ putStrLn "Error: "

source/Network/Xmpp.hs

@@ -29,7 +29,8 @@
 
 module Network.Xmpp
   ( -- * Session management
-    newSession
+    Session
+  , newSession
   , withConnection
   , connect
   , simpleConnect