Fixed non-exhaustive pattern added by commit 8413039d.

1 files changed, 1 insertions, 0 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 6f4a191b..ea1500d4 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -966,6 +966,7 @@ xmppInbound sv xmpp k laddr pingflag stanzas output donevar = doNestingXML $ do
               stype -> ioWriteChan stanzas Stanza
                             { stanzaType      = case stype of
                                 RequestResource _ rsc -> RequestResource stream_name rsc
+                                _                     -> stype
                             , stanzaId        = mid
                             , stanzaTo        = mto
                             , stanzaFrom      = mfrom