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

Fewer newlines

Browse Source
This commit is contained in:
Gregor Kleen 2018-04-04 12:31:50 +02:00
parent 431adf0324
commit 951af369c8
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -256,6 +256,7 @@ zipFileField doUnpack = Field{..}
| otherwise = return . Left $ SomeMessage MsgOnlyUploadOneFile | otherwise = return . Left $ SomeMessage MsgOnlyUploadOneFile
fieldView fieldId fieldName attrs _ req = do fieldView fieldId fieldName attrs _ req = do
[whamlet| [whamlet|
$newline never
<input type=file ##{fieldId} *{attrs} name=#{fieldName} :req:required> <input type=file ##{fieldId} *{attrs} name=#{fieldName} :req:required>
|] |]