@@ -219,7 +219,7 @@ class ( MonadHold t (PushM t)
219219 -- recomputed whenever any of the read 'Behavior's changes
220220 pull :: PullM t a -> Behavior t a
221221 -- | Merge a collection of events; the resulting 'Event' will only occur if at
222− -- least one input event is occuring, and will contain all of the input keys
222+ -- least one input event is occurring, and will contain all of the input keys
223223 -- that are occurring simultaneously
224224 merge :: GCompare k => DMap k (Event t) -> Event t (DMap k Identity) --TODO: Generalize to get rid of DMap use --TODO: Provide a type-level guarantee that the result is not empty
225225 -- | Efficiently fan-out an event to many destinations. This function should
@@ -330,7 +330,7 @@ class MonadSample t m => MonadHold t m where
330330 default buildDynamic :: (m ~ f m', MonadTrans f, MonadHold t m') => PullM t a -> Event t a -> m (Dynamic t a)
331331 buildDynamic getV0 = lift . buildDynamic getV0
332332 -}
333− -- | Create a new 'Event' that only occurs only once, on the first occurence of
333+ -- | Create a new 'Event' that only occurs only once, on the first occurrence of
334334 -- the supplied 'Event'.
335335 headE :: Event t a -> m (Event t a)
336336
@@ -559,7 +559,7 @@ tailE e = snd <$> headTailE e
559559
560560-- | Create a tuple of two 'Event's with the first one occurring only the first
561561-- time the supplied 'Event' occurs and the second occurring on all but the first
562−-- occurence.
562+-- occurrence.
563563headTailE :: (Reflex t, MonadHold t m) => Event t a -> m (Event t a, Event t a)
564564headTailE e = do
565565 eHead <- headE e
@@ -579,13 +579,13 @@ takeWhileE f e = do
579579 let e' = switch be
580580 return eTrue
581581
582−-- | Split the supplied 'Event' into two individual 'Event's occuring at the
582+-- | Split the supplied 'Event' into two individual 'Event's occurring at the
583583-- same time with the respective values from the tuple.
584584splitE :: Reflex t => Event t (a, b) -> (Event t a, Event t b)
585585splitE e = (fmap fst e, fmap snd e)
586586
587587-- | Print the supplied 'String' and the value of the 'Event' on each
588−-- occurence. This should /only/ be used for debugging.
588+-- occurrence. This should /only/ be used for debugging.
589589--
590590-- Note: As with Debug.Trace.trace, the message will only be printed if the
591591-- 'Event' is actually used.
@@ -647,7 +647,7 @@ unsafeMapIncremental f g a = unsafeBuildIncremental (fmap f $ sample $ currentIn
647647
648648-- | Create a new 'Event' combining the map of 'Event's into an 'Event' that
649649-- occurs if at least one of them occurs and has a map of values of all 'Event's
650−-- occuring at that time.
650+-- occurring at that time.
651651mergeMap :: (Reflex t, Ord k) => Map k (Event t a) -> Event t (Map k a)
652652mergeMap = fmap dmapToMap . merge . mapWithFunctorToDMap
653653
@@ -734,7 +734,7 @@ instance Reflex t => Align (Event t) where
734734 align = alignEventWithMaybe Just
735735
736736-- | Create a new 'Event' that only occurs if the supplied 'Event' occurs and
737−-- the 'Behavior' is true at the time of occurence.
737+-- the 'Behavior' is true at the time of occurrence.
738738gate :: Reflex t => Behavior t Bool -> Event t a -> Event t a
739739gate = attachWithMaybe $ \allow a -> if allow then Just a else Nothing
740740
@@ -962,7 +962,7 @@ instance Reflex t => Accumulator t (Event t) where
962962 accumMaybeM f z e = updated <$> accumMaybeM f z e
963963 mapAccumMaybeM f z e = first updated <$> mapAccumMaybeM f z e
964964
965−-- | Create a new 'Event' by combining each occurence with the next value of the
965+-- | Create a new 'Event' by combining each occurrence with the next value of the
966966-- list using the supplied function. If the list runs out of items, all
967967-- subsequent 'Event' occurrences will be ignored.
968968zipListWithEvent :: (Reflex t, MonadHold t m, MonadFix m) => (a -> b -> c) -> [a] -> Event t b -> m (Event t c)
@@ -972,17 +972,17 @@ zipListWithEvent f l e = do
972972 _ -> (Nothing, Nothing) --TODO: Unsubscribe the event?
973973 mapAccumMaybe_ f' l e
974974
975−-- | Assign a number to each occurence of the given 'Event', starting from 0
975+-- | Assign a number to each occurrence of the given 'Event', starting from 0
976976{-# INLINE numberOccurrences #-}
977977numberOccurrences :: (Reflex t, MonadHold t m, MonadFix m, Num b) => Event t a -> m (Event t (b, a))
978978numberOccurrences = numberOccurrencesFrom 0
979979
980−-- | Assign a number to each occurence of the given 'Event'
980+-- | Assign a number to each occurrence of the given 'Event'
981981{-# INLINE numberOccurrencesFrom #-}
982982numberOccurrencesFrom :: (Reflex t, MonadHold t m, MonadFix m, Num b) => b -> Event t a -> m (Event t (b, a))
983983numberOccurrencesFrom = mapAccum_ (\n a -> let !next = n + 1 in (next, (n, a)))
984984
985−-- | Assign a number to each occurence of the given 'Event'; discard the occurrences' values
985+-- | Assign a number to each occurrence of the given 'Event'; discard the occurrences' values
986986{-# INLINE numberOccurrencesFrom_ #-}
987987numberOccurrencesFrom_ :: (Reflex t, MonadHold t m, MonadFix m, Num b) => b -> Event t a -> m (Event t b)
988988numberOccurrencesFrom_ = mapAccum_ (\n _ -> let !next = n + 1 in (next, n))