diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 16:13:41 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-27 16:13:41 -0500 |
| commit | ca2ff90effdda221e16a201071d5fef0110596be (patch) | |
| tree | 1b48be19d521eef85eaf554e93d817be65dca768 /Arbitrary.patch | |
| parent | d0cbb7b8d6525466edcfeebe8fc06e69f1fbcf1b (diff) | |
pad keyids with 0 on the left
Diffstat (limited to 'Arbitrary.patch')
| -rw-r--r-- | Arbitrary.patch | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/Arbitrary.patch b/Arbitrary.patch index 8de13ad..aa09db0 100644 --- a/Arbitrary.patch +++ b/Arbitrary.patch | |||
| @@ -28,11 +28,10 @@ | |||
| 28 | return (MPI x1) | 28 | return (MPI x1) |
| 29 | 29 | ||
| 30 | 30 | ||
| 31 | _ -> error "FATAL ERROR: Arbitrary instance, logic bug" | 31 | @@ -166 +165 @@ |
| 32 | @@ -140 +139 @@ | 32 | - 9 -> do x1 <- arbitrary |
| 33 | - 8 -> do x1 <- arbitrary | 33 | + 9 -> do x1 <- vectorOf 16 (elements (['0'..'9'] ++ ['A'..'F'])) |
| 34 | + 8 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64) | 34 | @@ -169,2 +168 @@ |
| 35 | @@ -143,2 +142 @@ | 35 | - x2 <- arbitrary |
| 36 | - x2 <- arbitrary | 36 | - return (UnsupportedSignatureSubpacket x1 x2) |
| 37 | - return (UnsupportedSignatureSubpacket x1 x2) | 37 | + return (UnsupportedSignatureSubpacket 105 x1) |
| 38 | + return (UnsupportedSignatureSubpacket 105 x1) | ||