From 1b4792e5a8bec1861f5a179f084814a75074f21b Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Thu, 3 May 2007 09:49:37 +0200 Subject: -Wall police darcs-hash:20070503074937-9c5c1-769ff9e521726032973c5712940c8c671746153e --- tests/Properties.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/tests/Properties.hs b/tests/Properties.hs index 1240734..c8b7e05 100644 --- a/tests/Properties.hs +++ b/tests/Properties.hs @@ -292,6 +292,8 @@ instance Arbitrary Rectangle where sw <- arbitrary sh <- arbitrary return $ Rectangle sx sy sw sh + coarbitrary = undefined + instance Arbitrary Rational where arbitrary = do -- cgit v1.2.3