From: Michael Orlitzky 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