X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FPoint.hs;h=0e29d596e583786c99ca16e7a2922db4a616fdef;hb=9d123d52885618214e14e9fdefb2f3f43c329ddd;hp=a334c5c95642ae1f06dea200d03546aa82418316;hpb=edd0bfa30456c0f609418e730af641835b8650aa;p=spline3.git diff --git a/src/Point.hs b/src/Point.hs index a334c5c..0e29d59 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.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)