From d71636fba46d42cd6d86fd175e635a8539616bca Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 11 Sep 2013 12:07:59 -0400
Subject: Fix problem with test suite in non-unicode locale.

---
 Types/Key.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Types')

diff --git a/Types/Key.hs b/Types/Key.hs
index a0c6d83bc..e8b775fd7 100644
--- a/Types/Key.hs
+++ b/Types/Key.hs
@@ -81,7 +81,7 @@ file2key s = if key == Just stubKey then Nothing else key
 
 instance Arbitrary Key where
 	arbitrary = Key
-		<$> arbitrary
+		<$> (listOf1 $ elements $ ['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9'] ++ "\r\n \t")
 		<*> (listOf1 $ elements ['A'..'Z']) -- BACKEND
 		<*> ((abs <$>) <$> arbitrary) -- size cannot be negative
 		<*> arbitrary
-- 
cgit v1.2.3