~singpolyma/cheogram

4583d56e5228222367b078f956e33ddd75f9d683 — Stephen Paul Weber 3 years ago 80bc636
Empty is "available" and should go near the top
1 files changed, 2 insertions(+), 1 deletions(-)

M Util.hs
M Util.hs => Util.hs +2 -1
@@ 92,7 92,8 @@ sanitizeSipLocalpart localpart
	candidate = fst $ T.breakOn (s"@") $ unescapeJid localpart

showAvailableness :: String -> Word8
showAvailableness "chat" = 4
showAvailableness "chat" = 5
showAvailableness ""     = 4
showAvailableness "away" = 3
showAvailableness "dnd"  = 2
showAvailableness "xa"   = 1