@@ -92,7 +92,7 @@ virtualList :: forall t m k v a. (DomBuilder t m, PostBuild t m, MonadHold t m,
9292 -> (k -> v -> Event t v -> m a) -- ^ The row child element builder.
9393 -> m (Dynamic t (Int, Int), Dynamic t (Map k a)) -- ^ A tuple containing: a 'Dynamic' of the index (based on the current scroll position) and number of items currently being rendered, and the 'Dynamic' list result
9494virtualList heightPx rowPx maxIndex i0 setI keyToIndex items0 itemsUpdate itemBuilder = do
95− let virtualH = fmap (mkVirtualHeight . (*) rowPx) maxIndex
95+ let virtualH = mkVirtualHeight <$> maxIndex
9696 containerStyle = fmap mkContainer heightPx
9797 viewportStyle = fmap mkViewport heightPx
9898 pb <- getPostBuild