@@ -1040,7 +1040,7 @@ numberOccurrencesFrom = mapAccum_ (\n a -> (n + 1, (n, a)))
10401040
10411041-- | Assign a number to each occurence of the given 'Event'; discard the occurrences' values
10421042numberOccurrencesFrom_ :: (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))
10441044
10451045-- | This is used to sample the value of a 'Behavior' using an 'Event'.
10461046--