From 074bd213d37126818be55304f97af6392ea25ee8 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Mon, 4 Mar 2019 20:07:04 -0500 Subject: [PATCH] src/FunctionValues.hs: undo a stupid trick, to fix a monomorphism warning. --- src/FunctionValues.hs | 28 +++++++++++++++++++--------- 1 file changed, 19 insertions(+), 9 deletions(-) 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 ] -- 2.44.2