@@ -1040,7 +1040,7 @@ numberOccurrencesFrom = mapAccum_ (\n a -> (n + 1, (n, a)))
1041-- | Assign a number to each occurence of the given 'Event'; discard the occurrences' values
1041-- | Assign a number to each occurence of the given 'Event'; discard the occurrences' values
1042numberOccurrencesFrom_ :: (Reflex t, MonadHold t m, MonadFix m, Num b) => b -> Event t a -> m (Event t b)
1042numberOccurrencesFrom_ :: (Reflex t, MonadHold t m, MonadFix m, Num b) => b -> Event t a -> m (Event t b)
1043−numberOccurrencesFrom_ = mapAccum_ (\n a -> (n + 1, n))
1043+numberOccurrencesFrom_ = mapAccum_ (\n _ -> (n + 1, n))
1045-- | This is used to sample the value of a 'Behavior' using an 'Event'.
1045-- | This is used to sample the value of a 'Behavior' using an 'Event'.