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

fix(generic-file-field): allow .zip when doUnpack

Browse Source
This commit is contained in:
Gregor Kleen 2020-05-10 22:59:38 +02:00
parent d1f8dc81c3
commit 46e99081d9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -929,8 +929,11 @@ genericFileField mkOpts = Field{..}
handleFile handleFile
| doUnpack = sourceFiles | doUnpack = sourceFiles
| otherwise = yieldM . acceptFile | otherwise = yieldM . acceptFile
invalidUploadExtension fName
= not (permittedExtension opts fName)
&& (not doUnpack || ((/=) `on` simpleContentType) (mimeLookup fName) typeZip)
if | invExt : _ <- filter (not . permittedExtension opts) uploadedFilenames if | invExt : _ <- filter invalidUploadExtension uploadedFilenames
-> do -> do
liftHandler . runDB . runConduit $ liftHandler . runDB . runConduit $
mapM_ (transPipe lift . handleFile) files mapM_ (transPipe lift . handleFile) files