Remove DOM dependency, use foreign data type for Ref

Still adds two small dependencies
* purescript-maybe
* purescript-nullable

Author: Marcin Szamotulski

bower.json

@@ -20,7 +20,8 @@
     "purescript-eff": "^3.0.0",
     "purescript-prelude": "^3.0.0",
     "purescript-unsafe-coerce": "^3.0.0",
-    "purescript-dom": "^4.5.0"
+    "purescript-maybe": "^3.0.0",
+    "purescript-nullable": "^3.0.0"
   },
   "devDependencies": {
     "purescript-console": "^3.0.0",

src/React.purs

@@ -19,6 +19,7 @@ module React
   , ReactRefs
 
   , Refs
+  , Ref
 
   , Render
   , GetInitialState
@@ -69,7 +70,6 @@ module React
 import Prelude
 
 import Control.Monad.Eff (kind Effect, Eff)
-import DOM.Node.Types (Node)
 import Data.Maybe (Maybe)
 import Data.Nullable (Nullable, toMaybe)
 import Unsafe.Coerce (unsafeCoerce)
@@ -300,22 +300,24 @@ foreign import getRefs :: forall props state access eff.
   ReactThis props state ->
   Eff (refs :: ReactRefs (read :: Read | access) | eff) Refs
 
+foreign import data Ref :: Type
+
 -- | Read named ref from Refs
 foreign import readRefImpl :: forall props state access eff.
   ReactThis props state ->
   String ->
-  Eff (refs :: ReactRefs (read :: Read | access) | eff) (Nullable Node)
+  Eff (refs :: ReactRefs (read :: Read | access) | eff) (Nullable Ref)
 
 readRef :: forall props state access eff.
   ReactThis props state ->
   String ->
-  Eff (refs :: ReactRefs (read :: Read | access) | eff) (Maybe Node)
+  Eff (refs :: ReactRefs (read :: Read | access) | eff) (Maybe Ref)
 readRef this name = toMaybe <$> readRefImpl this name
 
 foreign import writeRef :: forall props state access eff.
   ReactThis props state ->
   String ->
-  Node ->
+  Ref ->
   Eff (refs :: ReactRefs (write :: Write | access) | eff) Unit
 
 -- | Read the component children property.

src/React/DOM/Props.purs

@@ -2,9 +2,8 @@ module React.DOM.Props where
 
 import Control.Monad.Eff (Eff)
 import Control.Monad.Eff.Unsafe (unsafePerformEff)
-import DOM.Node.Types (Node)
 import Prelude (Unit, (<<<))
-import React (Event, EventHandlerContext, KeyboardEvent, MouseEvent, ReactRefs, Write, handle)
+import React (Event, EventHandlerContext, KeyboardEvent, MouseEvent, ReactRefs, Ref, Write, handle)
 
 foreign import data Props :: Type
 
@@ -310,7 +309,7 @@ ref = unsafeMkProps "ref"
 -- | ```
 refCb
   :: forall access eff
-   . (Node -> Eff (refs :: ReactRefs (write :: Write | access) | eff) Unit)
+   . (Ref -> Eff (refs :: ReactRefs (write :: Write | access) | eff) Unit)
   -> Props
 refCb cb = unsafeMkProps "ref" (unsafePerformEff <<< cb)