diff options
| author | joe <joe@jerkface.net> | 2013-07-19 20:21:45 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2013-07-19 20:21:45 -0400 |
| commit | e3ad36d1bbb83b9885d2e080c5b910f5a6986e86 (patch) | |
| tree | e90240d0c774aad6ef80a7954084b7b5e118b456 /Presence/XMPPTypes.hs | |
| parent | c3183ee2fecce27a2936e08f87890e9cac1ddf3f (diff) | |
More complete support for <show> tag
Diffstat (limited to 'Presence/XMPPTypes.hs')
| -rw-r--r-- | Presence/XMPPTypes.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Presence/XMPPTypes.hs b/Presence/XMPPTypes.hs index 6b0d9ed1..e0b83a6c 100644 --- a/Presence/XMPPTypes.hs +++ b/Presence/XMPPTypes.hs | |||
| @@ -96,8 +96,11 @@ data JID = JID { name :: Maybe ByteString | |||
| 96 | deriving (Eq,Ord) | 96 | deriving (Eq,Ord) |
| 97 | 97 | ||
| 98 | data JabberShow = Offline | 98 | data JabberShow = Offline |
| 99 | | ExtendedAway | ||
| 99 | | Away | 100 | | Away |
| 101 | | DoNotDisturb | ||
| 100 | | Available | 102 | | Available |
| 103 | | Chatty | ||
| 101 | deriving (Prelude.Show,Enum,Ord,Eq,Read) | 104 | deriving (Prelude.Show,Enum,Ord,Eq,Read) |
| 102 | 105 | ||
| 103 | withResource (JID n p _) rsc = JID n p rsc | 106 | withResource (JID n p _) rsc = JID n p rsc |