@@ -428,6 +428,9 @@ elClass elementTag c child = elAttr elementTag ("class" =: c) child
428428list :: (MonadWidget t m, Ord k) => Dynamic t (Map k v) -> (Dynamic t v -> m a) -> m (Dynamic t (Map k a))
429429list dm mkChild = listWithKey dm (\_ dv -> mkChild dv)
430430
431+simpleList :: MonadWidget t m => Dynamic t [v] -> (Dynamic t v -> m a) -> m (Dynamic t [a])
432+simpleList xs mkChild = mapDyn (map snd . Map.toList) =<< flip list mkChild =<< mapDyn (Map.fromList . zip [(1::Int)..]) xs
433+
431434elDynHtml' :: MonadWidget t m => String -> Dynamic t String -> m (El t)
432435elDynHtml' elementTag html = do
433436 e <- buildEmptyElement elementTag (Map.empty :: Map String String)