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

fix(file-upload): size limitation was inverted

Browse Source
This commit is contained in:
Gregor Kleen 2020-07-23 17:58:15 +02:00
parent 908b1fc234
commit de53c80a1e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -897,7 +897,7 @@ genericFileField mkOpts = Field{..}
handleUpload :: FileField -> Maybe Text -> ConduitT File FileReference (YesodDB UniWorX) () handleUpload :: FileField -> Maybe Text -> ConduitT File FileReference (YesodDB UniWorX) ()
handleUpload FileField{fieldMaxFileSize} mIdent handleUpload FileField{fieldMaxFileSize} mIdent
= C.filter (\File{..} -> maybe (const True) (<) fieldMaxFileSize $ maybe 0 (fromIntegral . olength) fileContent) = C.filter (\File{..} -> maybe (const True) (>) fieldMaxFileSize $ maybe 0 (fromIntegral . olength) fileContent)
.| sinkFiles .| sinkFiles
.| maybe (C.map id) mkSessionFile mIdent .| maybe (C.map id) mkSessionFile mIdent
where where