From 7dd02b26a4aa0e1f76a31f33a58d65255d6da0ed Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Mon, 4 Mar 2019 19:25:33 -0500 Subject: [PATCH] src/Grid.hs: define the Grid using "newtype" instead of "data". --- src/Grid.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.43.2