diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-23 14:04:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-23 14:04:09 -0400 |
| commit | e0aff931023a6c3f7a06caaa5dfa1aad2da3889d (patch) | |
| tree | f1960ca033d5196da417e7c4d1f0e579bdc21e46 /Utility/QuickCheck.hs | |
| parent | 232fce59fabc4243c9b9d7944589986c5cc73f16 (diff) | |
| download | git-repair-e0aff931023a6c3f7a06caaa5dfa1aad2da3889d.tar.gz | |
merge from git-annex
Diffstat (limited to 'Utility/QuickCheck.hs')
| -rw-r--r-- | Utility/QuickCheck.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/QuickCheck.hs b/Utility/QuickCheck.hs index e2539f3..7f7234c 100644 --- a/Utility/QuickCheck.hs +++ b/Utility/QuickCheck.hs @@ -28,10 +28,10 @@ instance (Arbitrary v, Eq v, Ord v) => Arbitrary (S.Set v) where {- Times before the epoch are excluded. -} instance Arbitrary POSIXTime where - arbitrary = nonNegative arbitrarySizedIntegral + arbitrary = fromInteger <$> nonNegative arbitrarySizedIntegral instance Arbitrary EpochTime where - arbitrary = nonNegative arbitrarySizedIntegral + arbitrary = fromInteger <$> nonNegative arbitrarySizedIntegral {- Pids are never negative, or 0. -} instance Arbitrary ProcessID where |