Merge pull request #5 from purescript-web/view-detail-uievent

Add view and detail for UIEvent

Author: garyb

src/Web/UIEvent/MouseEvent.js

@@ -59,7 +59,3 @@ exports.getModifierState = function (s) {
     };
   };
 };
-
-exports.detail = function (e) {
-  return e.detail;
-};

src/Web/UIEvent/MouseEvent.purs

@@ -18,7 +18,6 @@ module Web.UIEvent.MouseEvent
   , relatedTarget
   , buttons
   , getModifierState
-  , detail
   ) where
 
 import Prelude
@@ -79,5 +78,3 @@ foreign import getModifierState
   :: String
   -> MouseEvent
   -> Effect Boolean
-
-foreign import detail :: MouseEvent -> Int

src/Web/UIEvent/UIEvent.js

@@ -0,0 +1,9 @@
+"use strict";
+
+exports._view = function (e) {
+  return e.view;
+};
+
+exports.detail = function (e) {
+  return e.detail;
+};

src/Web/UIEvent/UIEvent.purs

@@ -1,8 +1,18 @@
-module Web.UIEvent.UIEvent where
+module Web.UIEvent.UIEvent
+  ( UIEvent
+  , fromEvent
+  , toEvent
+  , view
+  , detail
+  ) where
+
+import Prelude
 
 import Data.Maybe (Maybe)
+import Data.Nullable (Nullable, toMaybe)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.Event.Event (Event)
+import Web.HTML (Window)
 import Web.Internal.FFI (unsafeReadProtoTagged)
 
 foreign import data UIEvent :: Type
@@ -12,3 +22,10 @@ fromEvent = unsafeReadProtoTagged "UIEvent"
 
 toEvent :: UIEvent -> Event
 toEvent = unsafeCoerce
+
+foreign import _view :: UIEvent -> Nullable Window
+
+view :: UIEvent -> Maybe Window
+view = toMaybe <<< _view
+
+foreign import detail :: UIEvent -> Int