@@ -240,6 +240,10 @@ instance HasAttributes (CheckboxConfig t) where
240 type Attrs (CheckboxConfig t) = Dynamic t (Map String String)
240 type Attrs (CheckboxConfig t) = Dynamic t (Map String String)
241 attributes = checkboxConfig_attributes
241 attributes = checkboxConfig_attributes
243+instance HasAttributes (FileInputConfig t) where
244+ type Attrs (FileInputConfig t) = Dynamic t (Map String String)
245+ attributes = fileInputConfig_attributes
243class HasSetValue a where
247class HasSetValue a where
244 type SetValue a :: *
248 type SetValue a :: *
245 setValue :: Lens' a (SetValue a)
249 setValue :: Lens' a (SetValue a)