diff options
| author | joe <joe@jerkface.net> | 2017-11-30 15:20:44 -0500 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-11-30 15:20:44 -0500 |
| commit | e14a2df55076f2af70dbb68041de9f9863e8a3b6 (patch) | |
| tree | 3f68618da6839d6d455814c4ada3891b0c443eb6 /Presence/XMPPServer.hs | |
| parent | c604eeb6046c27fefc6eefbf389f21c989a55929 (diff) | |
Fixed non-exhaustive pattern added by commit 8413039d.
Diffstat (limited to 'Presence/XMPPServer.hs')
| -rw-r--r-- | Presence/XMPPServer.hs | 1 |
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 | |||
| 966 | stype -> ioWriteChan stanzas Stanza | 966 | stype -> ioWriteChan stanzas Stanza |
| 967 | { stanzaType = case stype of | 967 | { stanzaType = case stype of |
| 968 | RequestResource _ rsc -> RequestResource stream_name rsc | 968 | RequestResource _ rsc -> RequestResource stream_name rsc |
| 969 | _ -> stype | ||
| 969 | , stanzaId = mid | 970 | , stanzaId = mid |
| 970 | , stanzaTo = mto | 971 | , stanzaTo = mto |
| 971 | , stanzaFrom = mfrom | 972 | , stanzaFrom = mfrom |