diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-12-29 10:52:15 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-12-29 10:52:15 -0500 |
| commit | 86d6407eccd1ed9f44f4e1a0e495e504d393c1d8 (patch) | |
| tree | 65fb0fa6fd1ce5e25394d1982449c931f589e844 /Arbitrary.patch | |
| parent | c431df57562913b0f8a80badcff3293354cea86e (diff) | |
AsymmetricSessionKeyPacket
Diffstat (limited to 'Arbitrary.patch')
| -rw-r--r-- | Arbitrary.patch | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Arbitrary.patch b/Arbitrary.patch index fa78846..641609f 100644 --- a/Arbitrary.patch +++ b/Arbitrary.patch | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | --- Data/OpenPGP/Arbitrary.hs 2012-04-27 12:38:11.492411339 -0500 | 1 | --- Data/OpenPGP/Arbitrary.hs 2012-04-27 12:38:11.492411339 -0500 |
| 2 | +++ arb.s 2012-04-27 12:37:57.176469214 -0500 | 2 | +++ arb.s 2012-04-27 12:37:57.176469214 -0500 |
| 3 | @@ -14,13 +14,18 @@ | 3 | @@ -14,13 +14,18 @@ |
| 4 | 0 -> do x1 <- arbitrary | 4 | 1 -> do x1 <- arbitrary |
| 5 | x2 <- arbitrary | 5 | x2 <- arbitrary |
| 6 | x3 <- arbitrary | 6 | x3 <- arbitrary |
| 7 | - x4 <- arbitrary | 7 | - x4 <- arbitrary |
| @@ -21,7 +21,7 @@ | |||
| 21 | + creation_time <- arbitrary | 21 | + creation_time <- arbitrary |
| 22 | + keyid <- vectorOf 16 (elements (['0'..'9'] ++ ['A'..'F'])) | 22 | + keyid <- vectorOf 16 (elements (['0'..'9'] ++ ['A'..'F'])) |
| 23 | + return (signaturePacket version x1 x2 x3 [] [SignatureCreationTimePacket creation_time, IssuerPacket keyid] x6 x7) | 23 | + return (signaturePacket version x1 x2 x3 [] [SignatureCreationTimePacket creation_time, IssuerPacket keyid] x6 x7) |
| 24 | 1 -> do x1 <- arbitrary | 24 | 2 -> do x1 <- arbitrary |
| 25 | x2 <- arbitrary | 25 | x2 <- arbitrary |
| 26 | x3 <- arbitrary | 26 | x3 <- arbitrary |
| 27 | @@ -73,7 +72,7 @@ | 27 | @@ -73,7 +72,7 @@ |