From 36abb3ee2675e4da5e9baeccd1057db6d20303fb Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 23 Apr 2020 11:00:41 +0200 Subject: [PATCH] fix(system-message): lastChanged & unhide logic error --- src/Handler/SystemMessage.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Handler/SystemMessage.hs b/src/Handler/SystemMessage.hs index 555cda2df..f4b40496a 100644 --- a/src/Handler/SystemMessage.hs +++ b/src/Handler/SystemMessage.hs @@ -42,8 +42,8 @@ postMessageR cID = do <*> apopt checkBoxField (fslI MsgSystemMessageAuthenticatedOnly) (Just systemMessageAuthenticatedOnly) <*> areq (selectField optionsFinite) (fslI MsgSystemMessageSeverity) (Just systemMessageSeverity) <*> pure systemMessageCreated - <*> (bool now systemMessageLastChanged <$> apopt checkBoxField (fslI MsgSystemMessageRecordChanged & setTooltip MsgSystemMessageRecordChangedTip) (Just True)) - <*> (bool now systemMessageLastUnhide <$> apopt checkBoxField (fslI MsgSystemMessageUnhide & setTooltip MsgSystemMessageUnhideTip) (Just False)) + <*> (bool systemMessageLastChanged now <$> apopt checkBoxField (fslI MsgSystemMessageRecordChanged & setTooltip MsgSystemMessageRecordChangedTip) (Just True)) + <*> (bool systemMessageLastUnhide now <$> apopt checkBoxField (fslI MsgSystemMessageUnhide & setTooltip MsgSystemMessageUnhideTip) (Just False)) <*> areq (langField False) (fslpI MsgSystemMessageLanguage (mr MsgRFC1766)) (Just systemMessageDefaultLanguage) <*> areq htmlField (fslI MsgSystemMessageContent) (Just systemMessageContent) <*> aopt htmlField (fslI MsgSystemMessageSummary) (Just systemMessageSummary)