1 files changed, 6 insertions, 7 deletions

diff --git a/lib/Transforms.hs b/lib/Transforms.hs
index 664cf86..adb7830 100644
--- a/lib/Transforms.hs
+++ b/lib/Transforms.hs
@@ -343,17 +343,16 @@ getBindings ::
   ->
     ( [([Packet],[SignatureOver])] --  other signatures with key sets
                                    --  that were used for the verifications
-    , [(Word8,
-       (Packet, Packet), -- (topkey,subkey)
-       [String],         -- usage flags
+    , [(Word8,               -- 1-master, 2-subkey, 0-other(see last element of tuple)
+       (Packet, Packet),     -- (topkey,subkey)
+       [String],             -- usage flags
        [SignatureSubpacket], -- hashed data
-       [Packet])] -- binding signatures
+       [Packet])]            -- binding signatures
     )
 getBindings pkts = (sigs,bindings)
  where
     (sigs,concat->bindings) = unzip $ do
-        let (keys,_) = partition isKey pkts
-        keys <- disjoint_fp keys
+        keys <- disjoint_fp (filter isKey pkts)
         let (bs,sigs) = verifyBindings keys pkts
         return . ((keys,sigs),) $ do
             b <- bs -- trace ("sigs = "++show (map (map signature_issuer . signatures_over) sigs)) bs
@@ -370,7 +369,7 @@ getBindings pkts = (sigs,bindings)
             return (code,(topkey b,subkey b), kind, hashed,claimants)
 
 
--- Returned data is simmilar to getBindings but the Word8 codes
+-- Returned data is similar to getBindings but the Word8 codes
 -- are ORed together.
 accBindings ::
   Bits t =>