X-Git-Url: http://gitweb.michael.orlitzky.com/?p=spline3.git;a=blobdiff_plain;f=src%2FGrid.hs;h=761fdce1b8c924e472bf0d40ce9baa1439cb43bb;hp=f9a59729554a9f12d72d9e384f332e024e858bdc;hb=7dd02b26a4aa0e1f76a31f33a58d65255d6da0ed;hpb=ec6905d56d55ea0be0ed7dd7dc4d959d2d1eacdf

diff --git a/src/Grid.hs b/src/Grid.hs
index f9a5972..761fdce 100644
--- a/src/Grid.hs
+++ b/src/Grid.hs
@@ -51,8 +51,8 @@ import Values ( Values3D, dims, empty3d, zoom_shape )
 --   values of the function at the grid points, which are distance h=1
 --   from one another in each direction (x,y,z).
 --
-data Grid = Grid { function_values :: Values3D }
-          deriving (Show)
+newtype Grid = Grid { function_values :: Values3D }
+                 deriving (Show)
 
 
 instance Arbitrary Grid where