@@ -179,7 +179,7 @@ listWithKey vals mkChild = do
179179 (result, postBuild, voidAction) <- buildChild df k v
180180 return ((result, voidAction), postBuild)
181181 runFrameWithTriggerRef newChildrenTriggerRef $ fmap fst initialState --TODO: Do all these in a single runFrame
182− sequence_ $ fmap snd initialState
182+ sequence_ $ fmap snd $ Map.elems initialState
183183 Just p <- liftIO $ nodeGetParentNode endPlaceholder
184184 _ <- liftIO $ nodeInsertBefore p (Just df) (Just endPlaceholder)
185185 return ()
@@ -287,7 +287,7 @@ listViewWithKey' vals mkChild = do
287287 (result, postBuild, voidAction) <- buildChild df k v
288288 return ((result, voidAction), postBuild)
289289 runFrameWithTriggerRef newChildrenTriggerRef $ fmap fst initialState --TODO: Do all these in a single runFrame
290− sequence_ $ fmap snd initialState
290+ sequence_ $ fmap snd $ Map.elems initialState
291291 Just p <- liftIO $ nodeGetParentNode endPlaceholder
292292 _ <- liftIO $ nodeInsertBefore p (Just df) (Just endPlaceholder)
293293 return ()
@@ -373,7 +373,7 @@ wrapDomEventMaybe element elementOnevent getValue = do
373373 e <- newEventWithTrigger $ \et -> do
374374 unsubscribe <- {-# SCC "a" #-} liftIO $ {-# SCC "b" #-} elementOnevent element $ {-# SCC "c" #-} do
375375 mv <- {-# SCC "d" #-} getValue
376− forM_ mv $ \v -> liftIO $ postGui $ runWithActions [et :=> v]
376+ forM_ (maybeToList mv) $ \v -> liftIO $ postGui $ runWithActions [et :=> v]
377377 return $ liftIO $ do
378378 {-# SCC "e" #-} unsubscribe
379379 return $! {-# SCC "f" #-} e