@@ -365,6 +365,10 @@ instance InitialAttributes (TextAreaElementConfig er t m) where
365365 {-# INLINABLE initialAttributes #-}
366366 initialAttributes = textAreaElementConfig_elementConfig . elementConfig_initialAttributes
367367
368+instance InitialAttributes (SelectElementConfig er t m) where
369+ {-# INLINABLE initialAttributes #-}
370+ initialAttributes = selectElementConfig_elementConfig . elementConfig_initialAttributes
371+
368372class ModifyAttributes t a | a -> t where
369373 modifyAttributes :: Lens' a (Event t (Map AttributeName (Maybe Text)))
370374
@@ -380,6 +384,10 @@ instance ModifyAttributes t (TextAreaElementConfig er t m) where
380384 {-# INLINABLE modifyAttributes #-}
381385 modifyAttributes = textAreaElementConfig_elementConfig . elementConfig_modifyAttributes
382386
387+instance ModifyAttributes t (SelectElementConfig er t m) where
388+ {-# INLINABLE modifyAttributes #-}
389+ modifyAttributes = selectElementConfig_elementConfig . elementConfig_modifyAttributes
390+
383391instance ModifyAttributes t (RawElementConfig er t m) where
384392 {-# INLINABLE modifyAttributes #-}
385393 modifyAttributes = rawElementConfig_modifyAttributes