Fixed missing-email crash.

1 files changed, 1 insertions, 1 deletions

diff --git a/kiki.hs b/kiki.hs
index e8f7998..22000d0 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -431,7 +431,7 @@ parseUID str = UserIDRecord {
     text = T.pack str
     (T.strip-> realname, T.dropAround isBracket-> email)
                               = T.break (=='<') text
-    (user, T.tail-> hostname) = T.break (=='@') email
+    (user, T.drop 1-> hostname) = T.break (=='@') email
     ( T.reverse            -> topdomain,
       T.reverse . T.drop 1 -> subdomain)
                               = T.break (=='.') . T.reverse $ hostname