From 951af369c8ba446e4b874d99d55f3c9bb1243d36 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 4 Apr 2018 12:31:50 +0200
Subject: [PATCH] Fewer newlines

---
 src/Handler/Utils/Form.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Handler/Utils/Form.hs b/src/Handler/Utils/Form.hs
index d9877e918..1936769ee 100644
--- a/src/Handler/Utils/Form.hs
+++ b/src/Handler/Utils/Form.hs
@@ -256,6 +256,7 @@ zipFileField doUnpack = Field{..}
       | otherwise    = return . Left $ SomeMessage MsgOnlyUploadOneFile
     fieldView fieldId fieldName attrs _ req = do
       [whamlet|
+        $newline never
         <input type=file ##{fieldId} *{attrs} name=#{fieldName} :req:required>
       |]