X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTetrahedron.hs;h=09b042d9c27e6d7d2611508082fdabe2136e0519;hb=dbb641b1534f7b3a24d5b6f4479b91f1fd681c54;hp=edf450c2c99abd4096dafa33fe011b72c3cb98ec;hpb=0af9777b4e239028e1a1faeadcc497465a2fd00a;p=spline3.git diff --git a/src/Tetrahedron.hs b/src/Tetrahedron.hs index edf450c..09b042d 100644 --- a/src/Tetrahedron.hs +++ b/src/Tetrahedron.hs @@ -1,3 +1,7 @@ +-- The local "coefficient" function defined within the "c" function +-- pattern matches on a bunch of integers, but doesn't handle the +-- "otherwise" case for performance reasons. +{-# OPTIONS_GHC -Wno-incomplete-patterns #-} {-# LANGUAGE BangPatterns #-} module Tetrahedron ( @@ -19,7 +23,7 @@ import qualified Data.Vector as V ( sum ) import Test.Tasty ( TestTree, testGroup ) import Test.Tasty.HUnit ( Assertion, assertEqual, testCase ) import Test.Tasty.QuickCheck ( - Arbitrary(..), + Arbitrary( arbitrary ), Gen, Property, (==>), @@ -28,7 +32,7 @@ import Test.Tasty.QuickCheck ( import Comparisons ( (~=) ) import FunctionValues ( FunctionValues(..), empty_values ) import Misc ( factorial ) -import Point ( Point(..), scale ) +import Point ( Point(Point), scale ) import RealFunction ( RealFunction, cmult, fexp ) data Tetrahedron =