Reversed the order of arguments for toFixed/toPrecision/toExponential

 see
 #3 (comment)

Author: kika

src/Global/Unsafe.js

@@ -7,20 +7,20 @@ exports.unsafeStringify = function (x) {
   return JSON.stringify(x);
 };
 
-exports.unsafeToFixed = function (n) {
-  return function (digits) {
+exports.unsafeToFixed = function (digits) {
+  return function (n) {
     return n.toFixed(digits);
   };
 };
 
-exports.unsafeToExponential = function (n) {
-  return function (digits) {
+exports.unsafeToExponential = function (digits) {
+  return function (n) {
     return n.toExponential(digits);
   };
 };
 
-exports.unsafeToPrecision  = function (n) {
-  return function (digits) {
+exports.unsafeToPrecision  = function (digits) {
+  return function (n) {
     return n.toPrecision(digits);
   };
 };

src/Global/Unsafe.purs

@@ -7,16 +7,16 @@ foreign import unsafeStringify :: forall a. a -> String
 -- | Formats Number as a String with limited number of digits after the dot
 -- | May throw RangeError if the number of digits is not within the allowed range
 -- | (standard precision range is 0 to 20, but implementations may change it)
-foreign import unsafeToFixed :: Number -> Int -> String
+foreign import unsafeToFixed :: Int -> Number -> String
 
 -- | Formats Number as String in exponential notation limiting number of digits
 -- | after the decimal dot. 
 -- | May throw RangeError if the number of digits is not within the allowed range
 -- | (standard precision range is 0 to 20, but implementations may change it)
-foreign import unsafeToExponential :: Number -> Int -> String
+foreign import unsafeToExponential :: Int -> Number -> String
 
 -- | Formats Number as String in fixed-point or exponential notation rounded 
 -- | to specified number of significant digits.
 -- | May throw RangeError if the number of digits is not within the allowed range
 -- | (standard precision range is 0 to 100, but implementations may change it)
-foreign import unsafeToPrecision :: Number -> Int -> String
+foreign import unsafeToPrecision :: Int -> Number -> String

test/Test/Main.purs

@@ -45,19 +45,19 @@ main = do
   assert $ readFloat "3.5" == 3.5
 
   -- note the rounding
-  log $ "unsafeToFixed " <> (show num) <> " 1 == \"12345.7\""
-  assert $ unsafeToFixed num 1 == "12345.7"
+  log $ "unsafeToFixed 1" <> (show num) <> " == \"12345.7\""
+  assert $ unsafeToFixed 1 num == "12345.7"
 
   -- padded with zeros
-  log $ "unsafeToFixed " <> (show num) <> " 6 == \"12345.678900\""
-  assert $ unsafeToFixed num 6 == "12345.678900"
+  log $ "unsafeToFixed 6" <> (show num) <> " == \"12345.678900\""
+  assert $ unsafeToFixed 6 num == "12345.678900"
 
-  log $ "unsafeToExponential " <> (show num) <> " 4 == \"1.2346e+4\""
-  assert $ unsafeToExponential num 4 == "1.2346e+4"
+  log $ "unsafeToExponential 4" <> (show num) <> " == \"1.2346e+4\""
+  assert $ unsafeToExponential 4 num == "1.2346e+4"
 
-  log $ "unsafeToPrecision " <> (show num) <> " 3 == \"1.23e+4\""
-  assert $ unsafeToPrecision num 3 == "1.23e+4"
+  log $ "unsafeToPrecision 3" <> (show num) <> " == \"1.23e+4\""
+  assert $ unsafeToPrecision 3 num == "1.23e+4"
 
-  log $ "unsafeToPrecision " <> (show num) <> " 6 == \"12345.7\""
-  assert $ unsafeToPrecision num 6 == "12345.7"
+  log $ "unsafeToPrecision 6" <> (show num) <> " == \"12345.7\""
+  assert $ unsafeToPrecision 6 num == "12345.7"