Encode/Decode URI component can throw exceptions

Author: garyb

src/Global.js

@@ -1,8 +1,6 @@
 /* globals exports */
 "use strict";
 
-// module Global
-
 exports.nan = NaN;
 
 exports.isNaN = isNaN;
@@ -18,8 +16,3 @@ exports.readInt = function (radix) {
 };
 
 exports.readFloat = parseFloat;
-
-exports.decodeURI = decodeURI;
-exports.encodeURI = encodeURI;
-exports.decodeURIComponent = decodeURIComponent;
-exports.encodeURIComponent = encodeURIComponent;

src/Global.purs

@@ -19,15 +19,3 @@ foreign import readInt :: Int -> String -> Number
 
 -- | Parse a floating point value from a `String`
 foreign import readFloat :: String -> Number
-
--- | uri decoding
-foreign import decodeURI :: String -> String
-
--- | uri encoding
-foreign import encodeURI :: String -> String
-
--- | uri component decoding
-foreign import decodeURIComponent :: String -> String
-
--- | uri component encoding
-foreign import encodeURIComponent :: String -> String

src/Global/Unsafe.js

@@ -1,8 +1,6 @@
 /* globals exports, JSON */
 "use strict";
 
-// module Global.Unsafe
-
 exports.unsafeStringify = function (x) {
   return JSON.stringify(x);
 };
@@ -25,3 +23,7 @@ exports.unsafeToPrecision  = function (digits) {
   };
 };
 
+exports.unsafeDecodeURI = decodeURI;
+exports.unsafeEncodeURI = encodeURI;
+exports.unsafeDecodeURIComponent = decodeURIComponent;
+exports.unsafeEncodeURIComponent = encodeURIComponent;

src/Global/Unsafe.purs

@@ -4,19 +4,38 @@ module Global.Unsafe where
 -- | to serialize functions returns undefined
 foreign import unsafeStringify :: forall a. a -> String
 
--- | Formats Number as a String with limited number of digits after the dot
+-- | 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 :: Int -> Number -> String
 
 -- | Formats Number as String in exponential notation limiting number of digits
--- | after the decimal dot. 
+-- | 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 :: Int -> Number -> String
 
--- | Formats Number as String in fixed-point or exponential notation rounded 
+-- | 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 :: Int -> Number -> String
+
+-- | URI decoding. May throw a `URIError` if given a value with undecodeable
+-- | escape sequences.
+foreign import unsafeDecodeURI :: String -> String
+
+-- | URI encoding. May throw a `URIError` if given a value with unencodeable
+-- | characters.
+foreign import unsafeEncodeURI :: String -> String
+
+-- | URI component decoding. May throw a `URIError` if given a value with
+-- | undecodeable escape sequences.
+foreign import unsafeDecodeURIComponent :: String -> String
+
+-- | URI component encoding. May throw a `URIError` if given a value with
+-- | unencodeable characters.
+foreign import unsafeEncodeURIComponent :: String -> String