-- 'Cardinal' to another (called a rotation). Then it applies the
-- rotation to each element of the 'FunctionValues' object, and
-- returns the result.
-rotate :: FunctionValues -> (Cardinal -> Cardinal) -> FunctionValues
-rotate fv rotation =
+rotate :: (Cardinal -> Cardinal) -> FunctionValues -> FunctionValues
+rotate rotation fv =
FunctionValues { front = eval fv (rotation F),
back = eval fv (rotation B),
left = eval fv (rotation L),