From 70d51faa70ead13f3e0e46482491ca3a5094c8b0 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sat, 25 May 2019 22:27:20 +0000
Subject: [PATCH] In notifications page, remove accidental display of hidden
 field labels

---
 src/Vervis/Handler/Inbox.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Vervis/Handler/Inbox.hs b/src/Vervis/Handler/Inbox.hs
index c67e4e6..89f49a7 100644
--- a/src/Vervis/Handler/Inbox.hs
+++ b/src/Vervis/Handler/Inbox.hs
@@ -495,9 +495,10 @@ getActorKey2R = getActorKey (\ (_, k2, _) -> k2) ActorKey2R
 
 notificationForm :: Maybe (Maybe (InboxItemId, Bool)) -> Form (Maybe (InboxItemId, Bool))
 notificationForm defs = renderDivs $ mk
-    <$> aopt hiddenField "Inbox Item ID#" (fmap fst <$> defs)
-    <*> aopt hiddenField "New unread flag" (fmap snd <$> defs)
+    <$> aopt hiddenField (name "Inbox Item ID#") (fmap fst <$> defs)
+    <*> aopt hiddenField (name "New unread flag") (fmap snd <$> defs)
     where
+    name t = FieldSettings "" Nothing Nothing (Just t) []
     mk Nothing     Nothing       = Nothing
     mk (Just ibid) (Just unread) = Just (ibid, unread)
     mk _           _             = error "Missing hidden field?"