@@ -158,17 +158,15 @@ data FileInput t
158158 }
159159
160160data FileInputConfig t
161− = FileInputConfig { _fileInputConfig_clearValue :: Event t ()
162− , _fileInputConfig_attributes :: Dynamic t (Map String String)
161+ = FileInputConfig { _fileInputConfig_attributes :: Dynamic t (Map String String)
163162 }
164163
165164instance Reflex t => Default (FileInputConfig t) where
166− def = FileInputConfig { _fileInputConfig_clearValue = never
167− , _fileInputConfig_attributes = constDyn mempty
165+ def = FileInputConfig { _fileInputConfig_attributes = constDyn mempty
168166 }
169167
170168fileInput :: MonadWidget t m => FileInputConfig t -> m (FileInput t)
171−fileInput (FileInputConfig clearValue dAttrs) = do
169+fileInput (FileInputConfig dAttrs) = do
172170 e <- liftM castToHTMLInputElement $ buildEmptyElement "input" =<< mapDyn (Map.insert "type" "file") dAttrs
173171 eChange <- wrapDomEvent e elementOnchange $ liftIO $ do
174172 Just files <- htmlInputElementGetFiles e