X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FFace.hs;h=de24a43e6c1cd72afb2c88b79507a38c7a48640e;hb=b6f84e979fd6c5a5e62b53143e737a28d8ed64a7;hp=785acafef9bfdc92b4eea5ef1cfa4b0f3deea870;hpb=5f01596d42cca3ec2b8236d697adb468cfcdb055;p=spline3.git diff --git a/src/Face.hs b/src/Face.hs index 785acaf..de24a43 100644 --- a/src/Face.hs +++ b/src/Face.hs @@ -1,12 +1,12 @@ -- | The Face module just contains the definition of the 'Face' data -- type and its two typeclass instances. +-- module Face ( Face(..), - center - ) + center ) where -import Point +import Point ( Point, scale ) data Face = Face { v0 :: !Point, v1 :: !Point,