From bca49f3b15fcb8d52fe9d67cd96d702fe06741b5 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Fri, 27 Apr 2012 14:42:24 -0500 Subject: TrustSignaturePacket --- Arbitrary.patch | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'Arbitrary.patch') diff --git a/Arbitrary.patch b/Arbitrary.patch index 28bd37e..e82de3d 100644 --- a/Arbitrary.patch +++ b/Arbitrary.patch @@ -19,14 +19,14 @@ return (MPI x1) -@@ -133,9 +132,8 @@ - 3 -> do x1 <- arbitrary - x2 <- arbitrary +@@ -135,9 +134,8 @@ return (TrustSignaturePacket x1 x2) -- 4 -> do x1 <- arbitrary -+ 4 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) + 4 -> do x1 <- arbitrary + return (RegularExpressionPacket x1) +- 5 -> do x1 <- arbitrary ++ 5 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) return (IssuerPacket x1) - 5 -> do x1 <- arbitrary + 6 -> do x1 <- arbitrary - x2 <- arbitrary - return (UnsupportedSignatureSubpacket x1 x2) + return (UnsupportedSignatureSubpacket 105 x1) -- cgit v1.2.3