diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 12:41:12 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 12:41:12 -0500 |
| commit | 2ed08625f7f56ab5c086498d47242299cff10e98 (patch) | |
| tree | 71ffbdc9939f127184d6d74d85851ad3409257c0 /Arbitrary.patch | |
| parent | 11dcd91f565e298f2a51b13e5d5e2b4423079717 (diff) | |
patch cleaner than ed
Diffstat (limited to 'Arbitrary.patch')
| -rw-r--r-- | Arbitrary.patch | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/Arbitrary.patch b/Arbitrary.patch new file mode 100644 index 0000000..11b6b51 --- /dev/null +++ b/Arbitrary.patch | |||
| @@ -0,0 +1,24 @@ | |||
| 1 | --- Data/OpenPGP/Arbitrary.hs 2012-04-27 12:38:11.492411339 -0500 | ||
| 2 | +++ arb.s 2012-04-27 12:37:57.176469214 -0500 | ||
| 3 | @@ -19,8 +19,7 @@ | ||
| 4 | x6 <- arbitrary | ||
| 5 | x7 <- arbitrary | ||
| 6 | x8 <- arbitrary | ||
| 7 | - x9 <- arbitrary | ||
| 8 | - return (SignaturePacket x1 x2 x3 x4 x5 x6 x7 x8 x9) | ||
| 9 | + return (signaturePacket x1 x2 x3 x4 x5 x6 x7 x8) | ||
| 10 | 1 -> do x1 <- arbitrary | ||
| 11 | x2 <- arbitrary | ||
| 12 | x3 <- arbitrary | ||
| 13 | @@ -133,9 +132,8 @@ | ||
| 14 | 3 -> do x1 <- arbitrary | ||
| 15 | x2 <- arbitrary | ||
| 16 | return (TrustSignaturePacket x1 x2) | ||
| 17 | - 4 -> do x1 <- arbitrary | ||
| 18 | + 4 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) | ||
| 19 | return (IssuerPacket x1) | ||
| 20 | 5 -> do x1 <- arbitrary | ||
| 21 | - x2 <- arbitrary | ||
| 22 | - return (UnsupportedSignatureSubpacket x1 x2) | ||
| 23 | + return (UnsupportedSignatureSubpacket 105 x1) | ||
| 24 | _ -> error "FATAL ERROR: Arbitrary instance, logic bug" | ||