ilyakooo0/reflex-dom
1
0
Fork 0
mirror of https://github.com/ilyakooo0/reflex-dom.git synced 2024-10-26 07:47:59 +03:00
Code Issues Projects Releases Wiki Activity

Merge remote-tracking branch 'alisonwu1/textAreaElementHasSetValue' into release/0.6.1.0

Browse Source
This commit is contained in:
Ali Abrar 2020-11-06 10:11:08 -05:00
commit 074c20b08c
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
reflex-dom-core/src/Reflex/Dom/Builder/Class.hs
View File

@ -744,3 +744,11 @@ instance HasDocument m => HasDocument (DynamicWriterT t w m)
instance HasDocument m => HasDocument (PostBuildT t m)
instance HasDocument m => HasDocument (RequesterT t request response m)
instance HasDocument m => HasDocument (QueryT t q m)
class HasSetValue a where
type SetValue a :: *
setValue :: Lens' a (SetValue a)
instance Reflex t => HasSetValue (TextAreaElementConfig er t m) where
type SetValue (TextAreaElementConfig er t m) = Event t Text
setValue = textAreaElementConfig_setValue

3
reflex-dom-core/src/Reflex/Dom/Widget/Input.hs
View File

@ -629,9 +629,6 @@ instance HasAttributes (FileInputConfig t) where
type Attrs (FileInputConfig t) = Dynamic t (Map Text Text)
attributes = fileInputConfig_attributes
class HasSetValue a where
type SetValue a :: *
setValue :: Lens' a (SetValue a)
instance HasSetValue (TextAreaConfig t) where
type SetValue (TextAreaConfig t) = Event t Text