From 1dd51df68e6f529e1c47aa4944cf625d901f704f Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sat, 7 Dec 2013 13:40:49 -0500
Subject: Fixed check for existing tor id.

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

diff --git a/kiki.hs b/kiki.hs
index b5f87cd..5d29a6e 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1397,7 +1397,7 @@ doImport doDecrypt db (fname,subspec,ms,_) = do
                      -- TODO: check for omitted real name field
                      (sigtrusts,om) <- Map.lookup idstr uids
                      listToMaybe $ do
-                         s <- (signatures $ Message (key:map (packet . fst) sigtrusts))
+                         s <- (signatures $ Message (packet top:UserIDPacket idstr:map (packet . fst) sigtrusts))
                          signatures_over $ verify (Message [packet top]) s
                 flip (flip maybe $ const $ return uids) has_torid $ do
                 wkun <- doDecrypt (packet top)
-- 
cgit v1.2.3