fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix handling of suggested UploadSpecificFiles

Browse Source
This commit is contained in:
Gregor Kleen 2019-05-28 22:30:38 +02:00
parent c0b07e5401
commit c2ab196b92
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Utils/Form.hs
View File

@ -420,8 +420,8 @@ uploadModeForm prev = multiActionA actions (fslI MsgSheetUploadMode) (classifyUp
let iStart = maybe 0 (succ . fst) $ Map.lookupMax oldRess let iStart = maybe 0 (succ . fst) $ Map.lookupMax oldRess
in pure $ Map.singleton iStart fileRes in pure $ Map.singleton iStart fileRes
return (addRes', formWidget') return (addRes', formWidget')
miCell _ initFile initFile' nudge csrf = miCell _ initFile _ nudge csrf =
sFileForm nudge (Just $ fromMaybe initFile initFile') csrf sFileForm nudge (Just initFile) csrf
miDelete = miDeleteList miDelete = miDeleteList
miAllowAdd _ _ _ = True miAllowAdd _ _ _ = True
miAddEmpty _ _ _ = Set.empty miAddEmpty _ _ _ = Set.empty