diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-09-11 13:02:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-09-11 13:02:10 -0400 |
| commit | 6b6dc864e7dfdb8ef00aee9ac8a741fcad1044dc (patch) | |
| tree | 1f0305f1b6478235d9fe9d3d022f1494085834e7 | |
| parent | 998fcdc75afe4c5bc6b03ab22561d1f322edf7f2 (diff) | |
add - and _
| -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 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 |