blob: 1334809f8866baffd6abce8eb4ca82ebf90661be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sun, 22 Jul 2018 14:30:36 +0800
X-Dgit-Generated: 1.20151215-1.2 5e47ead106bebfd076d950934fbe11d9f1ef552c
Subject: patch duplicate Arbitrary instance out of Utility/QuickCheck.hs
---
--- git-repair-1.20151215.orig/Utility/QuickCheck.hs
+++ git-repair-1.20151215/Utility/QuickCheck.hs
@@ -33,9 +33,6 @@ instance (Arbitrary v, Eq v, Ord v) => A
instance Arbitrary POSIXTime where
arbitrary = fromInteger <$> nonNegative arbitrarySizedIntegral
-instance Arbitrary EpochTime where
- arbitrary = fromInteger <$> nonNegative arbitrarySizedIntegral
-
{- Pids are never negative, or 0. -}
instance Arbitrary ProcessID where
arbitrary = arbitrarySizedBoundedIntegral `suchThat` (> 0)
|