X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FPoint.hs;h=8b720cf193c8a94b2963e4c75f78a194cd8dd87d;hb=a499efdb0e215ac424fe7c38a52430daebefc22b;hp=a334c5c95642ae1f06dea200d03546aa82418316;hpb=edd0bfa30456c0f609418e730af641835b8650aa;p=spline3.git diff --git a/src/Point.hs b/src/Point.hs index a334c5c..8b720cf 100644 --- a/src/Point.hs +++ b/src/Point.hs @@ -3,15 +3,15 @@ module Point ( Point(..), dot, - scale - ) + scale ) where -import Test.QuickCheck (Arbitrary(..)) +import Test.Tasty.QuickCheck ( 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)