Add ProgressEvent

Author: garyb

src/Web/XHR/ProgressEvent.js

@@ -0,0 +1,17 @@
+"use strict";
+
+exports.lengthComputable = function(ev) {
+  return ev.lengthComputable;
+};
+
+exports.lengthComputable = function(ev) {
+  return ev.lengthComputable;
+};
+
+exports.loaded = function(ev) {
+  return ev.loaded;
+};
+
+exports.total = function(ev) {
+  return ev.total;
+};

src/Web/XHR/ProgressEvent.purs

@@ -0,0 +1,20 @@
+module Web.XHR.ProgressEvent where
+
+import Data.Maybe (Maybe)
+import Unsafe.Coerce (unsafeCoerce)
+import Web.Event.Event (Event)
+import Web.Internal.FFI (unsafeReadProtoTagged)
+
+foreign import data ProgressEvent :: Type
+
+fromEvent :: Event -> Maybe ProgressEvent
+fromEvent = unsafeReadProtoTagged "ProgressEvent"
+
+toEvent :: ProgressEvent -> Event
+toEvent = unsafeCoerce
+
+foreign import lengthComputable :: ProgressEvent -> Boolean
+
+foreign import loaded :: ProgressEvent -> Number
+
+foreign import total :: ProgressEvent -> Number