module Point (
Point(..),
dot,
- scale
- )
+ scale )
where
-import Test.QuickCheck (Arbitrary(..))
+import Test.Tasty.QuickCheck ( Arbitrary( arbitrary ) )
-- | Represents a point in three dimensions. We use a custom type (as
-- opposed to a 3-tuple) so that we can make the coordinates strict.
+--
data Point =
Point !Double !Double !Double
deriving (Eq, Show)
fromInteger n =
Point coord coord coord
where
- coord = fromInteger n
+ coord = fromInteger n :: Double
-- | Scale a point by a constant.