@@ -54,6 +54,10 @@ import Reflex.TriggerEvent.Class
54data StaticDomBuilderEnv t = StaticDomBuilderEnv
54data StaticDomBuilderEnv t = StaticDomBuilderEnv
55 { _staticDomBuilderEnv_shouldEscape :: Bool
55 { _staticDomBuilderEnv_shouldEscape :: Bool
56 , _staticDomBuilderEnv_selectValue :: Maybe (Behavior t Text)
56 , _staticDomBuilderEnv_selectValue :: Maybe (Behavior t Text)
57+ -- ^ When the parent element is a "select" whose value has been set, this value tells us the current value.
58+ -- We use this to add a "selected" attribute to the appropriate "option" child element.
59+ -- This is not yet a perfect simulation of what the browser does, but it is much closer than doing nothing.
60+ -- TODO: Handle edge cases, e.g. setting to a value for which there is no option, then adding that option dynamically afterwards.
59newtype StaticDomBuilderT t m a = StaticDomBuilderT
63newtype StaticDomBuilderT t m a = StaticDomBuilderT