diff options
-rw-r--r-- | kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -431,7 +431,7 @@ parseUID str = UserIDRecord { | |||
431 | text = T.pack str | 431 | text = T.pack str |
432 | (T.strip-> realname, T.dropAround isBracket-> email) | 432 | (T.strip-> realname, T.dropAround isBracket-> email) |
433 | = T.break (=='<') text | 433 | = T.break (=='<') text |
434 | (user, T.tail-> hostname) = T.break (=='@') email | 434 | (user, T.drop 1-> hostname) = T.break (=='@') email |
435 | ( T.reverse -> topdomain, | 435 | ( T.reverse -> topdomain, |
436 | T.reverse . T.drop 1 -> subdomain) | 436 | T.reverse . T.drop 1 -> subdomain) |
437 | = T.break (=='.') . T.reverse $ hostname | 437 | = T.break (=='.') . T.reverse $ hostname |