Merge pull request #3 from fghibellini/fix/defaultPreventedEff

Make defaultPrevented effectful

Author: garyb

src/Web/Event/Event.js

@@ -13,7 +13,9 @@ exports._currentTarget = function (e) {
 };
 
 exports.defaultPrevented = function (e) {
-  return e.defaultPrevented;
+  return function() {
+    return e.defaultPrevented;
+  };
 };
 
 exports.eventPhaseIndex = function (e) {

src/Web/Event/Event.purs

@@ -74,7 +74,7 @@ foreign import cancelable :: Event -> Boolean
 foreign import preventDefault :: Event -> Effect Unit
 
 -- | Indicates whether `preventDefault` was called on the event.
-foreign import defaultPrevented :: Event -> Boolean
+foreign import defaultPrevented :: Event -> Effect Boolean
 
 -- | The time in milliseconds between 01/01/1970 and when the event was
 -- | dispatched.