From: Michael Orlitzky Date: Thu, 16 Apr 2015 01:15:38 +0000 (-0400) Subject: Import cleanup in FunctionValues. X-Git-Tag: 0.0.1~13 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=151b751fafdf5a22073fedb405b226e44bb75b17;p=spline3.git Import cleanup in FunctionValues. --- diff --git a/src/FunctionValues.hs b/src/FunctionValues.hs index 9c789f3..5332462 100644 --- a/src/FunctionValues.hs +++ b/src/FunctionValues.hs @@ -1,6 +1,8 @@ {-# LANGUAGE BangPatterns #-} + -- | The FunctionValues module contains the 'FunctionValues' type and -- the functions used to manipulate it. +-- module FunctionValues ( FunctionValues(..), empty_values, @@ -9,26 +11,26 @@ module FunctionValues ( rotate, function_values_tests, function_values_properties, - value_at - ) + value_at ) where -import Prelude hiding (LT) -import Test.HUnit (Assertion) -import Test.Framework (Test, testGroup) -import Test.Framework.Providers.HUnit (testCase) -import Test.Framework.Providers.QuickCheck2 (testProperty) -import Test.QuickCheck (Arbitrary(..), choose) +import Prelude hiding ( LT ) +import Test.HUnit ( Assertion ) +import Test.Framework ( Test, testGroup ) +import Test.Framework.Providers.HUnit ( testCase ) +import Test.Framework.Providers.QuickCheck2 ( testProperty ) +import Test.QuickCheck ( Arbitrary(..), choose ) -import Assertions (assertTrue) +import Assertions ( assertTrue ) import Cardinal ( Cardinal(..), cwx, cwy, cwz ) -import Examples (trilinear) -import Values (Values3D, dims, idx) +import Examples ( trilinear ) +import Values ( Values3D, dims, idx ) -- | The FunctionValues type represents the value of our function f at -- the 27 points surrounding (and including) the center of a -- cube. Each value of f can be accessed by the name of its -- direction. +-- data FunctionValues = FunctionValues { front :: !Double, back :: !Double,