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