summaryrefslogtreecommitdiff
path: root/Presence/Util.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Presence/Util.hs')
-rw-r--r--Presence/Util.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Presence/Util.hs b/Presence/Util.hs
index 8d9a9494..a934cad7 100644
--- a/Presence/Util.hs
+++ b/Presence/Util.hs
@@ -30,7 +30,7 @@ splitJID bjid =
30 server = head ys 30 server = head ys
31 name = case xs of 31 name = case xs of
32 (n:s:_) -> Just n 32 (n:s:_) -> Just n
33 (s:_) -> Nothing 33 _ -> Nothing
34 rsrc = case ys of 34 rsrc = case ys of
35 (s:_:_) -> Just $ last ys 35 (s:_:_) -> Just $ last ys
36 _ -> Nothing 36 _ -> Nothing