@@ -240,6 +240,10 @@ instance HasAttributes (CheckboxConfig t) where
240240 type Attrs (CheckboxConfig t) = Dynamic t (Map String String)
241241 attributes = checkboxConfig_attributes
242242
243+instance HasAttributes (FileInputConfig t) where
244+ type Attrs (FileInputConfig t) = Dynamic t (Map String String)
245+ attributes = fileInputConfig_attributes
246+
243247class HasSetValue a where
244248 type SetValue a :: *
245249 setValue :: Lens' a (SetValue a)