todo stubs

1 files changed, 16 insertions, 3 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index c645e96..08bde7a 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -203,7 +203,10 @@ data StreamInfo = StreamInfo
                          -- Note that this is currently treated as a boolean
                          -- flag.  KF_None means the file is not spillable
                          -- and anything else means that it is.
-    , initializer :: Maybe String }
+    , initializer :: Maybe String
+    , transforms :: [Transform] 
+    -- ^ TODO: currently ignored
+    }
 
 
 spillable :: StreamInfo -> Bool
@@ -251,10 +254,20 @@ data PacketUpdate = InducerSignature String [SignatureSubpacket]
 noManip :: KeyRingRuntime -> KeyData -> [PacketUpdate]
 noManip _ _ = []
 
+data PassphraseSpec = PassphraseSpec (Maybe FilePath) (Maybe String) InputFile
+
+data Transform = Autosign
+
 data KeyRingOperation = KeyRingOperation
     { kFiles :: Map.Map InputFile StreamInfo
+    , kPassphrases :: [PassphraseSpec]
+    -- ^ TODO: this is currently ignored
+    , kUnspilled :: Map.Map InputFile KeyDB
+    -- ^ TODO: this is currently ignored
+    , kTransform :: [Transform]
+    -- ^ TODO: this is currently ignored
     , kManip :: KeyRingRuntime -> KeyData -> [PacketUpdate]--[KeyRingAddress PacketUpdate]
-    -- TODO: change kManip to [Transform]
+    -- ^ TODO: this should be obsoleted by kTransform
     , homeSpec :: Maybe String
     }
 
@@ -1144,7 +1157,7 @@ buildKeyDB doDecrypt ctx grip0 keyring = do
             let us = mapMaybe usageFromFilter [fill stream,spill stream]
             usage <- take 1 us
             guard $ all (==usage) $ drop 1 us
-            -- TODO: KikiCondition for spill/fill usage mismatch?
+            -- TODO: KikiCondition reporting for spill/fill usage mismatch?
             let (topspec,subspec) = parseSpec grip usage
                 ms = map fst $ filterMatches topspec (Map.toList db)
                 cmd = initializer stream