@@ -889,13 +889,13 @@ switchHoldPromptOnlyIncremental
889889 -> (Incremental t (p (Event t w)) -> Event t (pt w))
890890 -> m (Event t (pt w))
891891switchHoldPromptOnlyIncremental e0 ee mergePatchNewElements mergePatchIncremental = do
892− let replaced :: Event t (p (Maybe w))
893− replaced = fmap (const Nothing) <$> ee
894− new :: Event t (pt (Maybe w))
895− new = fmap (fmap Just) $ coincidence $ fmapCheap mergePatchNewElements ee
896− held <- fmap (fmap Just) . mergePatchIncremental <$> holdIncremental e0 ee
897− let e = mergeList [fmapCheap Append held, fmapCheap Apply replaced, fmapCheap Append new]
898− return $ fmap (fmapMaybe id) $ ffor e $ \chain -> foldl applyElement mempty chain
892+ let replaced :: Event t (ApplyElement (p (Maybe w)))
893+ replaced = fmapCheap (Apply . (Nothing <$)) ee
894+ new :: Event t (ApplyElement (p (Maybe w)))
895+ new = fmapCheap (Append . fmap Just) $ coincidence $ fmapCheap mergePatchNewElements ee
896+ held <- fmapCheap (Append . fmap Just) . mergePatchIncremental <$> holdIncremental e0 ee
897+ let e = mergeList [held, replaced, new]
898+ return $ fmap (fmapMaybe id . foldl' applyElement mempty) e
899899 where
900900 applyElement :: pt (Maybe w) -> ApplyElement (p (Maybe w)) -> pt (Maybe w)
901901 applyElement pt = \case