scale )
where
-import Test.QuickCheck ( Arbitrary(..) )
+import Test.Tasty.QuickCheck ( Arbitrary( arbitrary ) )
-- | Represents a point in three dimensions. We use a custom type (as
fromInteger n =
Point coord coord coord
where
- coord = fromInteger n
+ coord = fromInteger n :: Double
-- | Scale a point by a constant.