@@ -92,7 +92,7 @@ virtualList :: forall t m k v a. (DomBuilder t m, PostBuild t m, MonadHold t m,
92 -> (k -> v -> Event t v -> m a) -- ^ The row child element builder.
92 -> (k -> v -> Event t v -> m a) -- ^ The row child element builder.
93 -> 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
93 -> 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
94virtualList heightPx rowPx maxIndex i0 setI keyToIndex items0 itemsUpdate itemBuilder = do
94virtualList heightPx rowPx maxIndex i0 setI keyToIndex items0 itemsUpdate itemBuilder = do
95− let virtualH = fmap (mkVirtualHeight . (*) rowPx) maxIndex
95+ let virtualH = mkVirtualHeight <$> maxIndex
96 containerStyle = fmap mkContainer heightPx
96 containerStyle = fmap mkContainer heightPx
97 viewportStyle = fmap mkViewport heightPx
97 viewportStyle = fmap mkViewport heightPx
98 pb <- getPostBuild
98 pb <- getPostBuild