@@ -142,7 +142,7 @@ virtualListBuffered buffer heightPx rowPx maxIndex i0 setI keyToIndex items0 ite
142 (win, m) <- virtualList heightPx rowPx maxIndex i0 setI keyToIndex items0 itemsUpdate itemBuilder
142 (win, m) <- virtualList heightPx rowPx maxIndex i0 setI keyToIndex items0 itemsUpdate itemBuilder
143 pb <- getPostBuild
143 pb <- getPostBuild
144 let extendWin o l = (max 0 (o - l * (buffer-1) `div` 2), l * buffer)
144 let extendWin o l = (max 0 (o - l * (buffer-1) `div` 2), l * buffer)
145− rec let winHitEdge = fmapMaybe id $ attachWith (\(oldOffset, oldLimit) (winOffset, winLimit) ->
145+ rec let winHitEdge = attachWithMaybe (\(oldOffset, oldLimit) (winOffset, winLimit) ->
146 if winOffset > oldOffset && winOffset + winLimit < oldOffset + oldLimit
146 if winOffset > oldOffset && winOffset + winLimit < oldOffset + oldLimit
147 then Nothing
147 then Nothing
148 else Just (extendWin winOffset winLimit)) (current winBuffered) (updated win)
148 else Just (extendWin winOffset winLimit)) (current winBuffered) (updated win)