diff options
author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 15:01:47 -0500 |
---|---|---|
committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 15:01:47 -0500 |
commit | bb537f6275d9c83ed11ab477eefdb33ccb38428f (patch) | |
tree | eae6168c91510cbda9ec281f64631d8299b579df /Arbitrary.patch | |
parent | cb2a5013f8c831591841404cb4a7c8201c522ad2 (diff) |
RevocablePacket
Diffstat (limited to 'Arbitrary.patch')
-rw-r--r-- | Arbitrary.patch | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/Arbitrary.patch b/Arbitrary.patch index e82de3d..b003906 100644 --- a/Arbitrary.patch +++ b/Arbitrary.patch | |||
@@ -19,15 +19,11 @@ | |||
19 | return (MPI x1) | 19 | return (MPI x1) |
20 | 20 | ||
21 | 21 | ||
22 | @@ -135,9 +134,8 @@ | 22 | _ -> error "FATAL ERROR: Arbitrary instance, logic bug" |
23 | return (TrustSignaturePacket x1 x2) | 23 | @@ -140 +139 @@ |
24 | 4 -> do x1 <- arbitrary | 24 | - 6 -> do x1 <- arbitrary |
25 | return (RegularExpressionPacket x1) | 25 | + 6 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) |
26 | - 5 -> do x1 <- arbitrary | 26 | @@ -143,2 +142 @@ |
27 | + 5 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) | ||
28 | return (IssuerPacket x1) | ||
29 | 6 -> do x1 <- arbitrary | ||
30 | - x2 <- arbitrary | 27 | - x2 <- arbitrary |
31 | - return (UnsupportedSignatureSubpacket x1 x2) | 28 | - return (UnsupportedSignatureSubpacket x1 x2) |
32 | + return (UnsupportedSignatureSubpacket 105 x1) | 29 | + return (UnsupportedSignatureSubpacket 105 x1) |
33 | _ -> error "FATAL ERROR: Arbitrary instance, logic bug" | ||