X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FFunctionValues.hs;h=681a23b9fa517a935faf3d553d1202deaacb6bae;hb=574a15e7ccfa3109f06fa05ed09e2282a03a7dad;hp=f9111ad23f406a6768ff7e641ced1022a0af4835;hpb=f9b29fb473cf7992b2b7375577e3cece3369892e;p=spline3.git

diff --git a/src/FunctionValues.hs b/src/FunctionValues.hs
index f9111ad..681a23b 100644
--- a/src/FunctionValues.hs
+++ b/src/FunctionValues.hs
@@ -137,8 +137,8 @@ make_values values i j k =
 --   '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),