updated documentation to findTag to reflect that the supplied master

key need not be the "current working key".

1 files changed, 5 insertions, 5 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index 8717e03..68ec843 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -2551,12 +2551,12 @@ splitAtMinBy comp xs = minimumBy comp' xxs
 
 
 
--- | Given list of subpackets, the working master key, one of its subkeys and a
+-- | Given list of subpackets, a master key, one of its subkeys and a
 -- list of signatures on that subkey, yields:
 --
 --   * preceding list of signatures
 --
---   * The most recent valid signature made by the working key along with a
+--   * The most recent valid signature made by the master key along with a
 --   flag that indicates whether or not all of the supplied subpackets occur in
 --   it or, if no valid signature from the working key is present, Nothing.
 --
@@ -2570,19 +2570,19 @@ findTag ::
   -> ([(MappedPacket, b)],
       Maybe (Bool, (MappedPacket, b)),
       [(MappedPacket, b)])
-findTag tag wk subkey subsigs = (xs',minsig,ys')
+findTag tag topk subkey subsigs = (xs',minsig,ys')
          where
             vs = map (\sig ->
                           (sig, do
                                 sig <- Just (packet . fst $ sig)
                                 guard (isSignaturePacket sig)
                                 guard $ flip isSuffixOf
-                                             (fingerprint wk)
+                                             (fingerprint topk)
                                         . fromMaybe "%bad%" 
                                         . signature_issuer
                                         $ sig
                                 listToMaybe $
-                                  map (signature_time . verify (Message [wk]))
+                                  map (signature_time . verify (Message [topk]))
                                       (signatures $ Message [wk,subkey,sig])))
                      subsigs
             (xs,ys) = splitAtMinBy (comparing (Down . snd)) vs