From: Michael Orlitzky Date: Wed, 7 Sep 2011 22:56:55 +0000 (-0400) Subject: Generalize 'Values' to n-dimensions; create type synonyms for n = 1,2,3. X-Git-Tag: 0.0.1~147 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=c93a9fd2d3623feb4e87678685c71a8940e98869;p=spline3.git Generalize 'Values' to n-dimensions; create type synonyms for n = 1,2,3. --- diff --git a/src/Values.hs b/src/Values.hs index 070abbb..614fb75 100644 --- a/src/Values.hs +++ b/src/Values.hs @@ -26,9 +26,10 @@ import Test.QuickCheck (Arbitrary(..), Gen, choose, vectorOf) import ScaleFactor -type Values1D = Array DIM1 Double -type Values2D = Array DIM2 Double -type Values3D = Array DIM3 Double +type Values sh = Array sh Double +type Values1D = Values DIM1 +type Values2D = Values DIM2 +type Values3D = Values DIM3 instance Arbitrary Values3D where