sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 22:04:51 +09:00
Code Issues Activity

In notifications page, remove accidental display of hidden field labels

Browse source
This commit is contained in:
fr33domlover 2019-05-25 22:27:20 +00:00
parent b7e2776e6a
commit 70d51faa70
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Vervis/Handler/Inbox.hs
View file

@ -495,9 +495,10 @@ getActorKey2R = getActorKey (\ (_, k2, _) -> k2) ActorKey2R
notificationForm :: Maybe (Maybe (InboxItemId, Bool)) -> Form (Maybe (InboxItemId, Bool)) notificationForm :: Maybe (Maybe (InboxItemId, Bool)) -> Form (Maybe (InboxItemId, Bool))
notificationForm defs = renderDivs $ mk notificationForm defs = renderDivs $ mk
<$> aopt hiddenField "Inbox Item ID#" (fmap fst <$> defs) <$> aopt hiddenField (name "Inbox Item ID#") (fmap fst <$> defs)
<*> aopt hiddenField "New unread flag" (fmap snd <$> defs) <*> aopt hiddenField (name "New unread flag") (fmap snd <$> defs)
where where
name t = FieldSettings "" Nothing Nothing (Just t) []
mk Nothing Nothing = Nothing mk Nothing Nothing = Nothing
mk (Just ibid) (Just unread) = Just (ibid, unread) mk (Just ibid) (Just unread) = Just (ibid, unread)
mk _ _ = error "Missing hidden field?" mk _ _ = error "Missing hidden field?"