diff options
Diffstat (limited to 'Presence/Util.hs')
-rw-r--r-- | Presence/Util.hs | 2 |
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 |