diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 15:06:12 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 15:06:12 -0500 |
| commit | d9b4face488cb3eb1a914f37b24751bb5dd9aeac (patch) | |
| tree | 3fc4e40a87fbd21dcf4d104075dec89a5c0da366 /Arbitrary.patch | |
| parent | bb537f6275d9c83ed11ab477eefdb33ccb38428f (diff) | |
KeyExpirationTimePacket
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 b003906..9c753cb 100644 --- a/Arbitrary.patch +++ b/Arbitrary.patch | |||
| @@ -21,8 +21,8 @@ | |||
| 21 | 21 | ||
| 22 | _ -> error "FATAL ERROR: Arbitrary instance, logic bug" | 22 | _ -> error "FATAL ERROR: Arbitrary instance, logic bug" |
| 23 | @@ -140 +139 @@ | 23 | @@ -140 +139 @@ |
| 24 | - 6 -> do x1 <- arbitrary | 24 | - 7 -> do x1 <- arbitrary |
| 25 | + 6 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) | 25 | + 7 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) |
| 26 | @@ -143,2 +142 @@ | 26 | @@ -143,2 +142 @@ |
| 27 | - x2 <- arbitrary | 27 | - x2 <- arbitrary |
| 28 | - return (UnsupportedSignatureSubpacket x1 x2) | 28 | - return (UnsupportedSignatureSubpacket x1 x2) |