diff options
| author | joe <joe@jerkface.net> | 2018-06-10 02:20:55 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2018-06-10 02:20:55 -0400 |
| commit | 2313073b3e85ed2479ac4246de29e8867f51603b (patch) | |
| tree | 1a602dd6411d23364832a3e8fe019f1ecfd0ce2e /Presence/Util.hs | |
| parent | b1a8e947df45ce363da7d2787ec487dedac3c397 (diff) | |
Improved nid command JID parsing.
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 |