diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-11-06 01:31:49 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-11-06 04:34:03 -0500 |
| commit | 3187c366a985ecc8c3394248e7f03d0022575ed0 (patch) | |
| tree | 3d7f3b003c4d9dc3463fb7eb308477d4c1eed3d4 /Presence/Stanza | |
| parent | 461c8f70d81209d6a4da6b9ab76b6487c13df07d (diff) | |
MUC compliance: Issue missing-nick error.
Diffstat (limited to 'Presence/Stanza')
| -rw-r--r-- | Presence/Stanza/Parse.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Presence/Stanza/Parse.hs b/Presence/Stanza/Parse.hs index af95530f..0335556b 100644 --- a/Presence/Stanza/Parse.hs +++ b/Presence/Stanza/Parse.hs | |||
| @@ -88,7 +88,8 @@ grokPresence | |||
| 88 | grokPresence ns stanzaTag = do | 88 | grokPresence ns stanzaTag = do |
| 89 | let typ = lookupAttrib "type" (tagAttrs stanzaTag) | 89 | let typ = lookupAttrib "type" (tagAttrs stanzaTag) |
| 90 | case typ of | 90 | case typ of |
| 91 | Nothing -> parsePresenceStatus ns stanzaTag | 91 | Nothing -> -- Note: Possibly join-chat stanza. |
| 92 | parsePresenceStatus ns stanzaTag | ||
| 92 | Just "unavailable" -> fmap (fmap (\p -> p {presenceShow=Offline})) | 93 | Just "unavailable" -> fmap (fmap (\p -> p {presenceShow=Offline})) |
| 93 | $ parsePresenceStatus ns stanzaTag | 94 | $ parsePresenceStatus ns stanzaTag |
| 94 | Just "error" -> return . Just $ PresenceInformError | 95 | Just "error" -> return . Just $ PresenceInformError |