split the module PointerEvent into PointerEvent, Element and Naviagator

Author: gbagan

src/Web/PointerEvent/Element.js

@@ -0,0 +1,23 @@
+export function setPointerCapture(id) {
+  return function(el) {
+    return function () {
+      el.setPointerCapture(id);
+    };
+  };
+}
+  
+export function releasePointerCapture(id) {
+  return function(el) {
+    return function () {
+      el.releasePointerCapture(id);
+    };
+  };
+}
+  
+export function hasPointerCapture(id) {
+  return function(el) {
+    return function () {
+      return el.hasPointerCapture(id);
+    };
+  };
+}

src/Web/PointerEvent/Element.purs

@@ -0,0 +1,14 @@
+module Web.PointerEvent.Element
+  ( hasPointerCapture
+  , releasePointerCapture
+  , setPointerCapture
+  )
+  where
+import Prelude
+import Effect (Effect)
+import Web.PointerEvent.PointerEvent (PointerId)
+import Web.DOM.Element (Element)
+
+foreign import setPointerCapture :: PointerId -> Element -> Effect Unit
+foreign import releasePointerCapture :: PointerId -> Element -> Effect Unit
+foreign import hasPointerCapture :: PointerId -> Element -> Effect Boolean

src/Web/PointerEvent/Navigator.js

@@ -0,0 +1,5 @@
+export function maxTouchPoints(nav) {
+  return function () {
+    return nav.maxTouchPoints;
+  };
+}

src/Web/PointerEvent/Navigator.purs

@@ -0,0 +1,5 @@
+module Web.PointerEvent.Navigator where
+
+import Effect (Effect)
+import Web.HTML.Navigator (Navigator)
+foreign import maxTouchPoints :: Navigator -> Effect Int

src/Web/PointerEvent/PointerEvent.js

@@ -52,34 +52,4 @@ export function getCoalescedEvents(ev) {
 
 export function getPredictedEvents(ev) {
   return ev.getPredictedEvents();
-}
-
-export function setPointerCapture(id) {
-  return function(el) {
-    return function () {
-      el.setPointerCapture(id);
-    };
-  };
-}
-
-export function releasePointerCapture(id) {
-  return function(el) {
-    return function () {
-      el.releasePointerCapture(id);
-    };
-  };
-}
-
-export function hasPointerCapture(id) {
-  return function(el) {
-    return function () {
-      return el.hasPointerCapture(id);
-    };
-  };
-}
-
-export function maxTouchPoints(nav) {
-  return function () {
-    return nav.maxTouchPoints;
-  };
 }

src/Web/PointerEvent/PointerEvent.purs

@@ -9,14 +9,11 @@ module Web.PointerEvent.PointerEvent
   , fromUIEvent
   , getCoalescedEvents
   , getPredictedEvents
-  , hasPointerCapture
   , height
   , isPrimary
   , pointerId
   , pointerType
   , pressure
-  , releasePointerCapture
-  , setPointerCapture
   , tiltX
   , tiltY
   , toEvent
@@ -27,16 +24,12 @@ module Web.PointerEvent.PointerEvent
   )
   where
 
-import Prelude
 import Data.Maybe (Maybe)
-import Effect (Effect)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.Event.Event (Event)
 import Web.Internal.FFI (unsafeReadProtoTagged)
 import Web.UIEvent.UIEvent (UIEvent)
 import Web.UIEvent.MouseEvent (MouseEvent)
-import Web.DOM.Element (Element)
-import Web.HTML.Navigator (Navigator)
 
 foreign import data PointerEvent :: Type
 data PointerType = Mouse | Touch | Pen
@@ -82,11 +75,4 @@ foreign import altitudeAngle :: PointerEvent -> Number
 foreign import azimuthAngle :: PointerEvent -> Number
 
 foreign import getCoalescedEvents :: PointerEvent -> Array PointerEvent
-
 foreign import getPredictedEvents :: PointerEvent -> Array PointerEvent
-
-foreign import setPointerCapture :: PointerId -> Element -> Effect Unit
-foreign import releasePointerCapture :: PointerId -> Element -> Effect Unit
-foreign import hasPointerCapture :: PointerId -> Element -> Effect Boolean
-
-foreign import maxTouchPoints :: Navigator -> Effect Int