From: Michael Orlitzky Date: Tue, 5 Mar 2019 01:07:04 +0000 (-0500) Subject: src/FunctionValues.hs: undo a stupid trick, to fix a monomorphism warning. X-Git-Tag: 1.0.1~43 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=074bd213d37126818be55304f97af6392ea25ee8;p=spline3.git src/FunctionValues.hs: undo a stupid trick, to fix a monomorphism warning. --- diff --git a/src/FunctionValues.hs b/src/FunctionValues.hs index 5c44dc5..6271d11 100644 --- a/src/FunctionValues.hs +++ b/src/FunctionValues.hs @@ -429,12 +429,22 @@ prop_z_rotation_doesnt_affect_top fv0 = function_values_properties :: TestTree function_values_properties = - let tp = testProperty - in - testGroup "FunctionValues properties" [ - tp "x rotation doesn't affect front" prop_x_rotation_doesnt_affect_front, - tp "x rotation doesn't affect back" prop_x_rotation_doesnt_affect_back, - tp "y rotation doesn't affect left" prop_y_rotation_doesnt_affect_left, - tp "y rotation doesn't affect right" prop_y_rotation_doesnt_affect_right, - tp "z rotation doesn't affect top" prop_z_rotation_doesnt_affect_top, - tp "z rotation doesn't affect down" prop_z_rotation_doesnt_affect_down ] + testGroup "FunctionValues properties" [ + testProperty + "x rotation doesn't affect front" + prop_x_rotation_doesnt_affect_front, + testProperty + "x rotation doesn't affect back" + prop_x_rotation_doesnt_affect_back, + testProperty + "y rotation doesn't affect left" + prop_y_rotation_doesnt_affect_left, + testProperty + "y rotation doesn't affect right" + prop_y_rotation_doesnt_affect_right, + testProperty + "z rotation doesn't affect top" + prop_z_rotation_doesnt_affect_top, + testProperty + "z rotation doesn't affect down" + prop_z_rotation_doesnt_affect_down ]