From 2c62b2d9e82fe34296146bda9bf46a9e45e09709 Mon Sep 17 00:00:00 2001
From: Jon Kristensen <jon.kristensen@nejla.com>
Date: Wed, 9 May 2012 23:01:54 +0200
Subject: [PATCH] answerMessage needs to take [Element]

---
 src/Network/XMPP/Message.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Network/XMPP/Message.hs b/src/Network/XMPP/Message.hs
index 7e10634..15ce0e3 100644
--- a/src/Network/XMPP/Message.hs
+++ b/src/Network/XMPP/Message.hs
@@ -23,7 +23,7 @@ message = Message { messageID      = Nothing
 
 -- Produce an answer message with the given payload, switching the "from" and
 -- "to" attributes in the original message.
-answerMessage :: Message -> [Node] -> Maybe Message
+answerMessage :: Message -> [Element] -> Maybe Message
 answerMessage Message{messageFrom = Just frm, ..} payload =
     Just Message{ messageFrom    = messageTo
                 , messageID      = Nothing