@@ -346,16 +346,10 @@ fileInput config = do
346346 & modifyAttributes .~ fmap mapKeysToAttributeName modifyAttrs
347347 & elementConfig_eventSpec . ghcjsEventSpec_filters .~ filters
348348 cfg = (def :: InputElementConfig EventResult t (DomBuilderSpace m)) & inputElementConfig_elementConfig .~ elCfg
349− eRaw <- inputElement cfg
350− let e = _inputElement_raw eRaw
351− eChange <- wrapDomEvent e (`on` Events.change) $ do
352− files <- Input.getFilesUnchecked e
353− len <- FileList.getLength files
354− mapM (fmap (fromMaybe (error "fileInput: fileList.item returned null")) . FileList.item files) [0 .. len-1]
355− dValue <- holdDyn [] eChange
349+ input <- inputElement cfg
356350 return $ FileInput
357− { _fileInput_value = dValue
358− , _fileInput_element = e
351+ { _fileInput_value = _inputElement_files input
352+ , _fileInput_element = _inputElement_raw input
359353 }
360354
361355data Dropdown t k