X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=blobdiff_plain;f=src%2FPoint.hs;h=0e29d596e583786c99ca16e7a2922db4a616fdef;hp=a334c5c95642ae1f06dea200d03546aa82418316;hb=7e59859d69d9c5bbe5d654566adea71265447756;hpb=0d037f5f0829d9ee7fcccc58570305623665f52e 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)