From bd1bcf51e99864b8a5ba9705f27c060adfeca2b9 Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Tue, 31 Oct 2023 18:47:50 +0200
Subject: [PATCH] Show field errors in profile form

---
 frontend/src/Datarekisteri/Frontend/Handlers/Profile.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/frontend/src/Datarekisteri/Frontend/Handlers/Profile.hs b/frontend/src/Datarekisteri/Frontend/Handlers/Profile.hs
index 3d7c2ff..ce0bbbf 100644
--- a/frontend/src/Datarekisteri/Frontend/Handlers/Profile.hs
+++ b/frontend/src/Datarekisteri/Frontend/Handlers/Profile.hs
@@ -75,6 +75,8 @@ profileForm ProfilePageUser {..} extraHtml = do
             <label for="#{fvId}">
                 ^{fvLabel}
                 ^{fvInput}
+                $maybe err <- fvErrors
+                    <div class=".errors">#{err}
             |]
         widget = [whamlet|
             #{extraHtml}