diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 15:24:07 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 15:24:07 -0500 |
| commit | d0cbb7b8d6525466edcfeebe8fc06e69f1fbcf1b (patch) | |
| tree | 8f80a8e30dae6fab67417611eebcbfd262a6b1e9 /Arbitrary.patch | |
| parent | 26f1db51b6146ee09a119113506dc8f58559fbcf (diff) | |
PreferredSymmetricAlgorithmsPacket
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 6d855f1..8de13ad 100644 --- a/Arbitrary.patch +++ b/Arbitrary.patch | |||
| @@ -30,8 +30,8 @@ | |||
| 30 | 30 | ||
| 31 | _ -> error "FATAL ERROR: Arbitrary instance, logic bug" | 31 | _ -> error "FATAL ERROR: Arbitrary instance, logic bug" |
| 32 | @@ -140 +139 @@ | 32 | @@ -140 +139 @@ |
| 33 | - 7 -> do x1 <- arbitrary | 33 | - 8 -> do x1 <- arbitrary |
| 34 | + 7 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) | 34 | + 8 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) |
| 35 | @@ -143,2 +142 @@ | 35 | @@ -143,2 +142 @@ |
| 36 | - x2 <- arbitrary | 36 | - x2 <- arbitrary |
| 37 | - return (UnsupportedSignatureSubpacket x1 x2) | 37 | - return (UnsupportedSignatureSubpacket x1 x2) |