Merge pull request #2 from btrepp/feat/bloburl

Adds blob to url functions

Author: garyb

src/Web/File/URL.js

@@ -0,0 +1,13 @@
+"use strict";
+
+exports.createObjectURL = function (blob) {
+  return function () {
+    return URL.createObjectURL(blob);
+  };
+};
+
+exports.revokeObjectURL = function (url) {
+  return function () {
+    URL.revokeObjectURL(url);
+  };
+};

src/Web/File/URL.purs

@@ -0,0 +1,18 @@
+module Web.File.Url 
+  (createObjectURL
+  , revokeObjectURL
+  ) where
+
+import Prelude
+import Effect (Effect)
+import Web.File.Blob (Blob)
+
+
+-- | Adds this blob to the url store
+-- | The string is a url that can be used to
+-- | 'download' the blob
+foreign import createObjectURL :: Blob -> Effect String
+
+-- | Revoke a blob url from the url store
+-- | Doesn't throw errors on failure
+foreign import revokeObjectURL :: String -> Effect Unit