diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2017-06-17 13:04:48 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-06-17 13:04:48 -0400 |
| commit | f2c83fe1c7bfefe3a59fef75fa6ecc93a8fd95e2 (patch) | |
| tree | b615affa7a75fe8508049706209daeb470444559 /Utility/InodeCache.hs | |
| parent | 64662aaaf313fe681648d5b62171102b769eab99 (diff) | |
Fix build with QuickCheck 2.10.
QuickCheck added an Arbitrary instance for CTime aka EpochTime. However,
while git-annex's instance disallowed times before the epoch, QuickCheck's
does not. So, rather than using its instance, convert from an Integer.
This commit was sponsored by Thomas Hochstein on Patreon.
Diffstat (limited to 'Utility/InodeCache.hs')
| -rw-r--r-- | Utility/InodeCache.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/InodeCache.hs b/Utility/InodeCache.hs index e91771a07..7e2d9992a 100644 --- a/Utility/InodeCache.hs +++ b/Utility/InodeCache.hs @@ -210,7 +210,8 @@ instance Arbitrary InodeCache where let prim = InodeCachePrim <$> arbitrary <*> arbitrary - <*> arbitrary + -- timestamp cannot be negative + <*> (abs . fromInteger <$> arbitrary) in InodeCache <$> prim #ifdef mingw32_HOST_OS |