diff --git a/lib/Hikaru/Form.hs b/lib/Hikaru/Form.hs index 5f2b4975557633472e9d17eacc45ceb3139605f9..24bcd3dfddfedac2c40a5cdffc657f0c9ead64a1 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 }