From 1cf20ac2093a4cc6b2f78090db9fa6117030446c Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Thu, 6 Jun 2019 17:26:47 +0200
Subject: [PATCH] Only display zip in list of allowed extensions if zips are
 expected

---
 templates/widgets/zipFileField.hamlet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/templates/widgets/zipFileField.hamlet b/templates/widgets/zipFileField.hamlet
index 1e39effa6..301d16c4b 100644
--- a/templates/widgets/zipFileField.hamlet
+++ b/templates/widgets/zipFileField.hamlet
@@ -4,5 +4,5 @@ $maybe exts <- fmap toNullable permittedExtensions
   <br>
   _{MsgUploadModeExtensionRestriction}: 
   <ul .list--inline .list--comma-separated .list--iconless>
-    $forall ext <- zipExtensions <> exts
+    $forall ext <- bool id (mappend zipExtensions) doUnpack exts
       <li style="font-family: monospace">#{ext}