From 151b751fafdf5a22073fedb405b226e44bb75b17 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 15 Apr 2015 21:15:38 -0400 Subject: [PATCH] Import cleanup in FunctionValues. --- src/FunctionValues.hs | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) 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, -- 2.43.2