X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FCardinal.hs;h=300c340687fbd86daf9a21035a19207acb936f0b;hb=0d037f5f0829d9ee7fcccc58570305623665f52e;hp=ff410a8769fa304f935984e9f5a6fccabb1e9272;hpb=957754c693525096c5fd7427decd6404bbb03379;p=spline3.git diff --git a/src/Cardinal.hs b/src/Cardinal.hs index ff410a8..300c340 100644 --- a/src/Cardinal.hs +++ b/src/Cardinal.hs @@ -9,13 +9,23 @@ -- center of a cube. In addition to those 26 directions, we also -- include the interior point and a number of composite types that -- allow us to perform arithmetic on directions. -module Cardinal +-- +module Cardinal ( + Cardinal(..), + cardinal_properties, + cardinal_tests, + ccwx, + ccwy, + ccwz, + cwx, + cwy, + cwz ) where import Control.Monad (liftM, liftM2) import Prelude hiding (LT) -import Test.HUnit +import Test.HUnit (Assertion, assertEqual) import Test.Framework (Test, testGroup) import Test.Framework.Providers.HUnit (testCase) import Test.Framework.Providers.QuickCheck2 (testProperty)