Removed Event.Class

Author: robertdp

src/Wire/Event/Class.purs

@@ -8,15 +8,14 @@ import Data.Filterable (class Filterable, filter, filterMap, partition, partitio
 import Data.Profunctor (class Profunctor)
 import Data.Profunctor.Choice (class Choice)
 import Wire.Event (Event)
-import Wire.Event.Class (class EventSource, source)
 
 newtype Transformer i o
   = Transformer (Event i -> Event o)
 
-transform :: forall o i source. EventSource source i => Transformer i o -> source -> Event o
-transform (Transformer t) from = t (source from)
+transform :: forall o i. Transformer i o -> Event i -> Event o
+transform (Transformer t) = t
 
-transformFlipped :: forall o i source. EventSource source i => source -> Transformer i o -> Event o
+transformFlipped :: forall i o. Event i -> Transformer i o -> Event o
 transformFlipped = flip transform
 
 infixr 2 transform as <~:

src/Wire/Event/Transformer.purs

@@ -1,12 +1,12 @@
-module Wire.Transformers
+module Wire.Transformer
   ( module Exports
   , fold
   , distinct
   ) where
 
 import Prelude
+import Wire.Event (Event)
 import Wire.Event as Event
-import Wire.Event.Class (class EventSource, source)
 import Wire.Event.Time as Time
 import Wire.Event.Transformer (Transformer(..), lift, transform, transformFlipped, (:~>), (<~:)) as Exports
 import Wire.Event.Transformer (Transformer, lift)
@@ -17,8 +17,8 @@ fold f b = lift (Event.fold f b)
 distinct :: forall a. Eq a => Transformer a a
 distinct = lift Event.distinct
 
-bufferUntil :: forall b a source. EventSource source b => source -> Transformer a (Array a)
-bufferUntil flush = lift (Event.bufferUntil (source flush))
+bufferUntil :: forall b a. Event b -> Transformer a (Array a)
+bufferUntil flush = lift (Event.bufferUntil flush)
 
 delay :: forall a. Int -> Transformer a a
 delay ms = lift (Time.delay ms)