From: Michael Orlitzky <michael@orlitzky.com>
Date: Tue, 5 Mar 2019 00:25:33 +0000 (-0500)
Subject: src/Grid.hs: define the Grid using "newtype" instead of "data".
X-Git-Tag: 1.0.1~52
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=7dd02b26a4aa0e1f76a31f33a58d65255d6da0ed;p=spline3.git

src/Grid.hs: define the Grid using "newtype" instead of "data".
---

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