From b7416ca157968c70ab07d47666af188e0ba9acaa Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Tue, 10 Dec 2013 14:41:28 -0500
Subject: Fixed missing-email crash.

---
 kiki.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3