From ca2ff90effdda221e16a201071d5fef0110596be Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Fri, 27 Apr 2012 16:13:41 -0500
Subject: pad keyids with 0 on the left

---
 Arbitrary.patch | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

(limited to 'Arbitrary.patch')

diff --git a/Arbitrary.patch b/Arbitrary.patch
index 8de13ad..aa09db0 100644
--- a/Arbitrary.patch
+++ b/Arbitrary.patch
@@ -28,11 +28,10 @@
                 return (MPI x1)
 
 
-                    _ -> error "FATAL ERROR: Arbitrary instance, logic bug"
-@@ -140 +139 @@
--                   8 -> do x1 <- arbitrary
-+                   8 -> do x1 <- fmap (map toUpper . (`showHex` "")) (arbitrary :: Gen Word64)
-@@ -143,2 +142 @@
--                           x2 <- arbitrary
--                           return (UnsupportedSignatureSubpacket x1 x2)
-+                           return (UnsupportedSignatureSubpacket 105 x1)
+@@ -166 +165 @@
+-                   9 -> do x1 <- arbitrary
++                   9 -> do x1 <- vectorOf 16 (elements (['0'..'9'] ++ ['A'..'F']))
+@@ -169,2 +168 @@
+-                            x2 <- arbitrary
+-                            return (UnsupportedSignatureSubpacket x1 x2)
++                            return (UnsupportedSignatureSubpacket 105 x1)
-- 
cgit v1.2.3