From b3737b312b819925fd21d19a0ceea62d1d5c2c32 Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Tue, 31 Oct 2023 13:33:20 +0200
Subject: [PATCH] Don't try to parse empty email fields

---
 frontend/src/Datarekisteri/Frontend/FormFields.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/frontend/src/Datarekisteri/Frontend/FormFields.hs b/frontend/src/Datarekisteri/Frontend/FormFields.hs
index 9ada3a3..0fae23a 100644
--- a/frontend/src/Datarekisteri/Frontend/FormFields.hs
+++ b/frontend/src/Datarekisteri/Frontend/FormFields.hs
@@ -17,6 +17,7 @@ emailField = Field
     { fieldParse = \rawValues _ ->
         case rawValues of
           [] -> pure $ Right Nothing
+          [""] -> pure $ Right Nothing
           [x] -> pure $ maybe (Left "could not parse as an email address") (Right . Just) $ toEmail x
           _ -> pure $ Left $ "Expected one value"
     , fieldView = \id name otherAttributes result isRequired ->