In notifications page, remove accidental display of hidden field labels
This commit is contained in:
parent
b7e2776e6a
commit
70d51faa70
1 changed files with 3 additions and 2 deletions
|
@ -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?"
|
||||||
|
|
Loading…
Reference in a new issue