From a0f45af48093cd3f13159f810a2b8e10db42e702 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Jan=20Hamal=20Dvo=C5=99=C3=A1k?= <mordae@anilinux.org>
Date: Wed, 22 Jan 2020 11:33:14 +0100
Subject: [PATCH] Treat whitespace-only form fields as non-present
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Jan Hamal Dvořák <mordae@anilinux.org>
---
 lib/Hikaru/Form.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Hikaru/Form.hs b/lib/Hikaru/Form.hs
index 5f2b497..24bcd3d 100644
--- a/lib/Hikaru/Form.hs
+++ b/lib/Hikaru/Form.hs
@@ -43,7 +43,7 @@ where
 
   import Control.Monad.Reader
   import Control.Monad.State
-  import Data.Text (Text)
+  import Data.Text (Text, strip)
   import Hikaru.Action
   import Hikaru.Localize
   import Hikaru.Types
@@ -203,7 +203,7 @@ where
 
     let view = FormFields [] []
         env  = Env { envPrefix = [name]
-                   , envParams = filter (("" /=) . snd) params
+                   , envParams = filter (("" /=) . strip . snd) params
                    , envFiles  = []
                    , envCheck  = True
                    }
@@ -225,7 +225,7 @@ where
 
     let view = FormFields [] []
         env  = Env { envPrefix = [name]
-                   , envParams = filter (("" /=) . snd) fields
+                   , envParams = filter (("" /=) . strip . snd) fields
                    , envFiles  = files
                    , envCheck  = True
                    }
-- 
GitLab