Document intention for unspilled KeyDB and decryption.

1 files changed, 6 insertions, 0 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index d3db248..c5c8bf2 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -1666,6 +1666,9 @@ makeMemoizingDecrypter operation ctx = do
                                         && isNothing (passSpecKeySpec sp))
                                     $ kPassphrases operation
     unkeysRef <- newIORef Map.empty
+    -- TODO:
+    --   Use buildKeyDB on unspilled files to create an unspillable KeyDB.
+    --   This KeyDB should be used later by decryptIt.
     return $ doDecrypt unkeysRef (pws `Map.union` pws2) defpw
  where
     doDecrypt :: IORef (Map.Map KeyKey Packet)
@@ -1681,6 +1684,9 @@ makeMemoizingDecrypter operation ctx = do
 
             decryptIt [] = return BadPassphrase
             decryptIt (getpw:getpws) = do
+                -- TODO: This function should use mergeKeyPacket to 
+                --  combine the packet with it's unspilled version before
+                --  attempting to decrypt it.
                 pw <- getpw
                 let wkun = fromMaybe wk $ decryptSecretKey pw wk
                 case symmetric_algorithm wkun of