diff options
-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) |