Change message and presence payload from [Element] to [Node] for easier pickling

src/Network/XMPP.hs

@@ -150,7 +150,8 @@ import qualified Network.TLS as TLS
 import Network.XMPP.Bind
 import Network.XMPP.Concurrent
 import Network.XMPP.IM.Presence hiding (presence)
-import Network.XMPP.IM.Message hiding (message)
+import Network.XMPP.IM.Message
+import Network.XMPP.Message
 import Network.XMPP.Monad
 import Network.XMPP.Presence
 import Network.XMPP.SASL

src/Network/XMPP/Marshal.hs

@@ -48,10 +48,10 @@ xpMessage = xpWrap
              (xpAttrImplied "id"   xpPrim)
              (xpAttrImplied "from" xpPrim)
              (xpAttrImplied "to"   xpPrim)
-             (xpAttrImplied xmlLang xpPrim)
+             xpLangTag
              -- TODO: NS?
          )
-         (xpAll xpElemVerbatim)
+         (xpId)
     )
 
 xpPresence :: PU [Node] Presence
@@ -66,7 +66,7 @@ xpPresence = xpWrap
               xpLangTag
               (xpAttrImplied "type" xpPrim)
          )
-         (xpAll xpElemVerbatim)
+         (xpId)
     )
 
 xpIQRequest :: PU [Node] IQRequest
@@ -145,7 +145,7 @@ xpMessageError = xpWrap
               (xpAttrImplied xmlLang xpPrim)
               -- TODO: NS?
          )
-         (xp2Tuple xpStanzaError (xpAll xpElemVerbatim))
+         (xp2Tuple xpStanzaError xpId)
     )
 
 xpPresenceError :: PU [Node] PresenceError
@@ -162,7 +162,7 @@ xpPresenceError = xpWrap
               xpLangTag
               (xpAttrFixed "type" "error")
          )
-         (xp2Tuple xpStanzaError (xpAll xpElemVerbatim))
+         (xp2Tuple xpStanzaError xpId)
     )
 
 xpIQError :: PU [Node] IQError

src/Network/XMPP/Types.hs

@@ -168,7 +168,7 @@ data Message = Message { messageID      :: Maybe StanzaId
                        , messageTo      :: Maybe JID
                        , messageLangTag :: Maybe LangTag
                        , messageType    :: MessageType
-                       , messagePayload :: [Element]
+                       , messagePayload :: [Node]
                        }
                deriving (Show)
 
@@ -178,7 +178,7 @@ data MessageError = MessageError { messageErrorID :: Maybe StanzaId
                                  , messageErrorTo :: Maybe JID
                                  , messageErrorLangTag  :: Maybe LangTag
                                  , messageErrorStanzaError :: StanzaError
-                                 , messageErrorPayload :: [Element]
+                                 , messageErrorPayload :: [Node]
                                  }
                     deriving (Show)
 
@@ -249,7 +249,7 @@ data Presence = Presence { presenceID       :: Maybe StanzaId
                          , presenceTo       :: Maybe JID
                          , presenceLangTag  :: Maybe LangTag
                          , presenceType     :: Maybe PresenceType
-                         , presencePayload  :: [Element]
+                         , presencePayload  :: [Node]
                          }
                 deriving (Show)
 
@@ -263,7 +263,7 @@ data PresenceError = PresenceError { presenceErrorID :: Maybe StanzaId
                                    , presenceErrorTo :: Maybe JID
                                    , presenceErrorLangTag :: Maybe LangTag
                                    , presenceErrorStanzaError :: StanzaError
-                                   , presenceErrorPayload :: [Element]
+                                   , presenceErrorPayload :: [Node]
                                    }
                      deriving (Show)
 

src/Tests.hs

@@ -77,7 +77,7 @@ autoAccept = forever $ do
 simpleMessage :: JID -> Text -> Message
 simpleMessage to txt = message
     { messageTo = Just to
-    , messagePayload = [Element "body"
+    , messagePayload = [NodeElement $ Element "body"
                         []
                         [NodeContent $ ContentText txt]
                        ]