summaryrefslogtreecommitdiff
path: root/Key.hs
diff options
context:
space:
mode:
authorJoeyHess <>2017-08-18 15:20:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-08-18 15:20:00 (GMT)
commit7d97a290a851f48881a840092eb684bce2360efa (patch)
tree38d86902ae657b2060395eb803715c6a41b4103b /Key.hs
parent51789f477b19a509ea6e0337d8bc8aa5c5ee9930 (diff)
version 6.201708186.20170818
Diffstat (limited to 'Key.hs')
-rw-r--r--Key.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Key.hs b/Key.hs
index 8672c82..44e9ace 100644
--- a/Key.hs
+++ b/Key.hs
@@ -147,7 +147,7 @@ instance Arbitrary Key where
<$> (listOf1 $ elements $ ['A'..'Z'] ++ ['a'..'z'] ++ ['0'..'9'] ++ "-_\r\n \t")
<*> (parseKeyVariety <$> (listOf1 $ elements ['A'..'Z'])) -- BACKEND
<*> ((abs <$>) <$> arbitrary) -- size cannot be negative
- <*> arbitrary
+ <*> ((abs . fromInteger <$>) <$> arbitrary) -- mtime cannot be negative
<*> ((abs <$>) <$> arbitrary) -- chunksize cannot be negative
<*> ((succ . abs <$>) <$> arbitrary) -- chunknum cannot be 0 or negative