From fb8a8cbe57562a4de1b3a022fff34bca2d2db5ab Mon Sep 17 00:00:00 2001 From: joe Date: Tue, 29 Apr 2014 02:03:43 -0400 Subject: todo comments --- KeyRing.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/KeyRing.hs b/KeyRing.hs index 58a2d01..d057cd4 100644 --- a/KeyRing.hs +++ b/KeyRing.hs @@ -243,6 +243,7 @@ noManip _ _ = [] data KeyRingOperation = KeyRingOperation { kFiles :: Map.Map InputFile StreamInfo , kManip :: KeyRingRuntime -> KeyData -> [PacketUpdate]--[KeyRingAddress PacketUpdate] + -- TODO: change kManip to [Transform] , homeSpec :: Maybe String } @@ -1335,6 +1336,7 @@ importSecret = Just False subkeysOnly :: Maybe Bool subkeysOnly = Nothing +-- TODO: Do we need to memoize this? guardAuthentic :: KeyRingRuntime -> KeyData -> Maybe () guardAuthentic rt keydata = guard (isauth rt keydata) @@ -1728,6 +1730,8 @@ runKeyRing operation = do else do -- memoizing decrypter + -- TODO: Unspilled keyrings should be usable for decrypting + -- and signing. decrypt <- makeMemoizingDecrypter operation secring pubring -- merge all keyrings, PEM files, and wallets -- cgit v1.2.3