Removed wire from dependencies (#7)

* Removed `wire` as a dependency

* Export `Event` type

Author: robertdp

README.md

@@ -19,11 +19,6 @@ let additions =
     , repo = "https://github.com/robertdp/purescript-react-halo.git"
     , version = "v1.0.0"
     }
-  , wire =
-    { dependencies = [ "aff", "filterable", "refs", "unsafe-reference" ]
-    , repo = "https://github.com/robertdp/purescript-wire.git"
-    , version = "v0.5.0"
-    }
   }
 ```
 
@@ -86,6 +81,8 @@ fireOnChange value = do
 Subscriptions registered using these functions are automatically tracked by Halo.
 
 ```purescript
+type Event a = (a -> Effect Unit) -> Effect (Effect Unit)
+
 subscribe :: forall props state action m. Event action -> HaloM props state action m SubscriptionId
 
 unsubscribe :: forall m action state props. SubscriptionId -> HaloM props state action m Unit

packages.dhall

@@ -123,12 +123,6 @@ let upstream =
 
 let overrides = {=}
 
-let additions =
-      { wire =
-        { dependencies = [ "aff", "filterable", "refs", "unsafe-reference" ]
-        , repo = "https://github.com/robertdp/purescript-wire.git"
-        , version = "v0.5.0"
-        }
-      }
+let additions = {=}
 
 in  upstream // overrides // additions

spago.dhall

@@ -6,7 +6,7 @@ You can edit this file as you like.
 , license = "BSD-3-Clause"
 , repository = "https://github.com/robertdp/purescript-react-halo.git"
 , dependencies =
-  [ "aff", "free", "freeap", "react-basic-hooks", "refs", "wire" ]
+  [ "aff", "free", "freeap", "react-basic-hooks", "refs" ]
 , packages = ./packages.dhall
 , sources = [ "src/**/*.purs" ]
 }

src/React/Halo.purs

@@ -18,4 +18,4 @@ import React.Basic.Hooks (Component, JSX) as React
 import React.Halo.Component (ComponentSpec, HookSpec, UseHalo, component, component_, useHalo) as Halo
 import React.Halo.Internal.Control (HaloAp, HaloM, fork, hoist, hoistAp, kill, props, subscribe, subscribe', unsubscribe) as Halo
 import React.Halo.Internal.Eval (EvalSpec, defaultEval, mkEval) as Halo
-import React.Halo.Internal.Types (ForkId, Lifecycle(..), SubscriptionId) as Halo
+import React.Halo.Internal.Types (Event, ForkId, Lifecycle(..), SubscriptionId) as Halo

src/React/Halo/Internal/Control.purs

@@ -14,8 +14,7 @@ import Data.Bifunctor (lmap)
 import Data.Tuple (Tuple)
 import Effect.Aff.Class (class MonadAff, liftAff)
 import Effect.Class (class MonadEffect, liftEffect)
-import React.Halo.Internal.Types (ForkId, SubscriptionId)
-import Wire.Event (Event)
+import React.Halo.Internal.Types (Event, ForkId, SubscriptionId)
 
 -- | The Halo evaluation algebra
 -- |

src/React/Halo/Internal/Eval.purs

@@ -18,7 +18,6 @@ import React.Halo.Internal.State (HaloState(..))
 import React.Halo.Internal.State as State
 import React.Halo.Internal.Types (ForkId(..), Lifecycle(..), SubscriptionId(..))
 import Unsafe.Reference (unsafeRefEq)
-import Wire.Event as Event
 
 -- | Interprets `HaloM` into the base monad `Aff` for asynchronous effects.
 evalHaloM :: forall props state action. HaloState props state action -> HaloM props state action Aff ~> Aff
@@ -49,7 +48,7 @@ evalHaloF hs@(HaloState s) = case _ of
     liftEffect do
       sid <- State.fresh SubscriptionId hs
       unlessM (Ref.read s.finalized) do
-        canceller <- Event.subscribe (sub sid) (handleAction hs)
+        canceller <- sub sid (handleAction hs)
         Ref.modify_ (Map.insert sid canceller) s.subscriptions
       pure (k sid)
   Unsubscribe sid a ->

src/React/Halo/Internal/Types.purs

@@ -1,6 +1,7 @@
 module React.Halo.Internal.Types where
 
 import Prelude
+import Effect (Effect)
 
 -- | The Halo lifecycle events.
 -- |
@@ -15,6 +16,9 @@ data Lifecycle props action
   | Action action
   | Finalize
 
+type Event a
+  = (a -> Effect Unit) -> Effect (Effect Unit)
+
 newtype SubscriptionId
   = SubscriptionId Int