Stop depending on testpack.
This commit is contained in:
parent
2c6941a08e
commit
0151f42cdf
7 changed files with 52 additions and 36 deletions
|
@ -16,6 +16,11 @@ module Utility.QuickCheck
|
|||
import Test.QuickCheck as X
|
||||
import Data.Time.Clock.POSIX
|
||||
import System.Posix.Types
|
||||
import qualified Data.Map as M
|
||||
import Control.Applicative
|
||||
|
||||
instance (Arbitrary k, Arbitrary v, Eq k, Ord k) => Arbitrary (M.Map k v) where
|
||||
arbitrary = M.fromList <$> arbitrary
|
||||
|
||||
{- Times before the epoch are excluded. -}
|
||||
instance Arbitrary POSIXTime where
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue