9 lines
407 B
Plaintext
9 lines
407 B
Plaintext
$newline never
|
|
<input type=file uw-file-input ##{fieldId} *{attrs} name=#{fieldName} :req:required :acceptRestricted:accept=#{accept}>
|
|
$maybe exts <- fmap toNullable permittedExtensions
|
|
<br>
|
|
_{MsgUploadModeExtensionRestriction}:
|
|
<ul .list--inline .list--comma-separated .list--iconless>
|
|
$forall ext <- bool id (mappend zipExtensions) doUnpack exts
|
|
<li style="font-family: monospace">#{ext}
|