diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-11 12:07:59 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-11 12:07:59 -0400 |
| commit | d71636fba46d42cd6d86fd175e635a8539616bca (patch) | |
| tree | 069093fd2a1630d6b1371e43d176e1183dbaf4f0 /Types/Key.hs | |
| parent | d1f2693f5da44325a76c4fe46ec0dc88e966c8b1 (diff) | |
Fix problem with test suite in non-unicode locale.
Diffstat (limited to 'Types/Key.hs')
| -rw-r--r-- | Types/Key.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |