From: Michael Orlitzky Date: Tue, 25 Oct 2011 03:49:22 +0000 (-0400) Subject: Add bang patterns to the definition of Cube (Ben Lippmeier). X-Git-Tag: 0.0.1~90 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=e0bc55b3ed14d49a1745d71cd8dcd0fe58cc7867;p=spline3.git Add bang patterns to the definition of Cube (Ben Lippmeier). --- diff --git a/src/Cube.hs b/src/Cube.hs index d0d4b7e..bec49b4 100644 --- a/src/Cube.hs +++ b/src/Cube.hs @@ -31,12 +31,12 @@ import Point import Tetrahedron (Tetrahedron(..), c, volume) import ThreeDimensional -data Cube = Cube { h :: Double, - i :: Int, - j :: Int, - k :: Int, - fv :: FunctionValues, - tetrahedra_volume :: Double } +data Cube = Cube { h :: !Double, + i :: !Int, + j :: !Int, + k :: !Int, + fv :: !FunctionValues, + tetrahedra_volume :: !Double } deriving (Eq)