4bb39e9 · reflex-dom · git.iko.soy

git.iko.soy/reflex-dom

on develop help sign in

Add InitialAttributes and ModifyAttributes classes for SelectElementConfig

4bb39e9Ryan Trinkle10 years ago

src/Reflex/Dom/Builder/Class.hs+8

@@ -365,6 +365,10 @@ instance InitialAttributes (TextAreaElementConfig er t m) where

365 {-# INLINABLE initialAttributes #-}

366 initialAttributes = textAreaElementConfig_elementConfig . elementConfig_initialAttributes

367

368+instance InitialAttributes (SelectElementConfig er t m) where

369+ {-# INLINABLE initialAttributes #-}

370+ initialAttributes = selectElementConfig_elementConfig . elementConfig_initialAttributes

371+

368class ModifyAttributes t a | a -> t where

372class ModifyAttributes t a | a -> t where

369 modifyAttributes :: Lens' a (Event t (Map AttributeName (Maybe Text)))

373 modifyAttributes :: Lens' a (Event t (Map AttributeName (Maybe Text)))

370

374

@@ -380,6 +384,10 @@ instance ModifyAttributes t (TextAreaElementConfig er t m) where

380 {-# INLINABLE modifyAttributes #-}

384 {-# INLINABLE modifyAttributes #-}

381 modifyAttributes = textAreaElementConfig_elementConfig . elementConfig_modifyAttributes

385 modifyAttributes = textAreaElementConfig_elementConfig . elementConfig_modifyAttributes

382

386

387+instance ModifyAttributes t (SelectElementConfig er t m) where

388+ {-# INLINABLE modifyAttributes #-}

389+ modifyAttributes = selectElementConfig_elementConfig . elementConfig_modifyAttributes

390+

383instance ModifyAttributes t (RawElementConfig er t m) where

391instance ModifyAttributes t (RawElementConfig er t m) where

384 {-# INLINABLE modifyAttributes #-}

392 {-# INLINABLE modifyAttributes #-}

385 modifyAttributes = rawElementConfig_modifyAttributes

393 modifyAttributes = rawElementConfig_modifyAttributes