diff options
author | joe <joe@jerkface.net> | 2013-12-07 13:40:49 -0500 |
---|---|---|
committer | joe <joe@jerkface.net> | 2013-12-07 13:40:49 -0500 |
commit | 1dd51df68e6f529e1c47aa4944cf625d901f704f (patch) | |
tree | 52bc81aa348369229bc13930f1a9cd4b55c7e3b0 /kiki.hs | |
parent | d19d1b8e1b640e3776c4bc2b0936b69b4d9bbad9 (diff) |
Fixed check for existing tor id.
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1397,7 +1397,7 @@ doImport doDecrypt db (fname,subspec,ms,_) = do | |||
1397 | -- TODO: check for omitted real name field | 1397 | -- TODO: check for omitted real name field |
1398 | (sigtrusts,om) <- Map.lookup idstr uids | 1398 | (sigtrusts,om) <- Map.lookup idstr uids |
1399 | listToMaybe $ do | 1399 | listToMaybe $ do |
1400 | s <- (signatures $ Message (key:map (packet . fst) sigtrusts)) | 1400 | s <- (signatures $ Message (packet top:UserIDPacket idstr:map (packet . fst) sigtrusts)) |
1401 | signatures_over $ verify (Message [packet top]) s | 1401 | signatures_over $ verify (Message [packet top]) s |
1402 | flip (flip maybe $ const $ return uids) has_torid $ do | 1402 | flip (flip maybe $ const $ return uids) has_torid $ do |
1403 | wkun <- doDecrypt (packet top) | 1403 | wkun <- doDecrypt (packet top) |