1 files changed, 4 insertions, 0 deletions

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