From 6b6dc864e7dfdb8ef00aee9ac8a741fcad1044dc Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 11 Sep 2013 13:02:10 -0400
Subject: add - and _

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

diff --git a/Types/Key.hs b/Types/Key.hs
index e8b775fd7..2ddb3f50e 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
-		<$> (listOf1 $ elements $ ['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9'] ++ "\r\n \t")
+		<$> (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