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

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