diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 14:42:24 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 14:42:24 -0500 |
| commit | bca49f3b15fcb8d52fe9d67cd96d702fe06741b5 (patch) | |
| tree | c216ccbc0855808bf3f80674a67cc395b04de942 /Arbitrary.patch | |
| parent | 1a1258ace5b9ae959972c18184566bb689bd8575 (diff) | |
TrustSignaturePacket
Diffstat (limited to 'Arbitrary.patch')
| -rw-r--r-- | Arbitrary.patch | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/Arbitrary.patch b/Arbitrary.patch index 28bd37e..e82de3d 100644 --- a/Arbitrary.patch +++ b/Arbitrary.patch | |||
| @@ -19,14 +19,14 @@ | |||
| 19 | return (MPI x1) | 19 | return (MPI x1) |
| 20 | 20 | ||
| 21 | 21 | ||
| 22 | @@ -133,9 +132,8 @@ | 22 | @@ -135,9 +134,8 @@ |
| 23 | 3 -> do x1 <- arbitrary | ||
| 24 | x2 <- arbitrary | ||
| 25 | return (TrustSignaturePacket x1 x2) | 23 | return (TrustSignaturePacket x1 x2) |
| 26 | - 4 -> do x1 <- arbitrary | 24 | 4 -> do x1 <- arbitrary |
| 27 | + 4 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) | 25 | return (RegularExpressionPacket x1) |
| 26 | - 5 -> do x1 <- arbitrary | ||
| 27 | + 5 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) | ||
| 28 | return (IssuerPacket x1) | 28 | return (IssuerPacket x1) |
| 29 | 5 -> do x1 <- arbitrary | 29 | 6 -> do x1 <- arbitrary |
| 30 | - x2 <- arbitrary | 30 | - x2 <- arbitrary |
| 31 | - return (UnsupportedSignatureSubpacket x1 x2) | 31 | - return (UnsupportedSignatureSubpacket x1 x2) |
| 32 | + return (UnsupportedSignatureSubpacket 105 x1) | 32 | + return (UnsupportedSignatureSubpacket 105 x1) |