diff options
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) |