From 298d4805cc7e3c16a71550f3a3bd0f4945c67772 Mon Sep 17 00:00:00 2001 From: joe Date: Wed, 30 Apr 2014 22:20:57 -0400 Subject: todo stubs --- KeyRing.hs | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) (limited to 'KeyRing.hs') 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 -- cgit v1.2.3