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

Fixes #85

Browse Source
This commit is contained in:
Gregor Kleen 2018-10-31 13:20:35 +01:00
parent da5a496e56
commit 3adac1f25b
1 changed files with 17 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -282,10 +282,7 @@ multiFileField :: Handler (Set FileId) -> Field Handler (Source Handler (Either
multiFileField permittedFiles' = Field{..} multiFileField permittedFiles' = Field{..}
where where
fieldEnctype = Multipart fieldEnctype = Multipart
fieldParse vals files fieldParse vals files = return . Right . Just $ do
| null files
, null vals = return $ Right Nothing
| otherwise = return . Right . Just $ do
pVals <- lift permittedFiles' pVals <- lift permittedFiles'
let let
decrypt' :: CryptoUUIDFile -> Handler (Maybe FileId) decrypt' :: CryptoUUIDFile -> Handler (Maybe FileId)