Kristian Fiskerstrand avatar Kristian Fiskerstrand committed 889cf11

Clean up revocation key patch

Comments (0)

Files changed (1)

    match pack.packet_type with
     | Signature_Packet ->
       let parsed_signature = ParsePGP.parse_signature pack in
-       let result = match parsed_signature with
-         | V3sig s -> (match (int_to_sigtype s.v3s_sigtype) with
+      let sigtype = match parsed_signature with
+       | V3sig s -> s.v3s_sigtype
+       | V4sig s -> s.v4s_sigtype
+     in
+     let result =  match (int_to_sigtype sigtype) with
            | Key_revocation_signature | Subkey_revocation_signature
              | Certification_revocation_signature -> true
-           | _ -> false)
-         | V4sig s -> (match (int_to_sigtype s.v4s_sigtype) with
-           | Key_revocation_signature | Subkey_revocation_signature
-             | Certification_revocation_signature -> true
-           | _ -> false)
-         in
-         result
+           | _ -> false
+     in
+     result
     | _ -> false
 
 let canonicalize key =
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.