From 9bc78bf303a7e6deee40e25d2b9a9bc8bee09936 Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Tue, 7 May 2019 01:51:21 +0000 Subject: [PATCH] When posting ticket comment in regular UI, don't specify `published` time The outbox handler wants to set it, and it expects it not be set by the client. --- src/Vervis/Handler/Discussion.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/Vervis/Handler/Discussion.hs b/src/Vervis/Handler/Discussion.hs index d9ddaf9..d570fbb 100644 --- a/src/Vervis/Handler/Discussion.hs +++ b/src/Vervis/Handler/Discussion.hs @@ -177,7 +177,6 @@ postTopReply hDest recips context replyP after = do encodeRouteFed <- getEncodeRouteFed encodeRouteLocal <- getEncodeRouteLocal let encodeRecipRoute = l2f hDest . encodeRouteLocal - now <- liftIO getCurrentTime shrAuthor <- do Entity _ p <- requireVerifiedAuth lift $ runDB $ sharerIdent <$> get404 (personIdent p) @@ -195,7 +194,7 @@ postTopReply hDest recips context replyP after = do } , noteReplyTo = Just uContext , noteContext = Just uContext - , notePublished = Just now + , notePublished = Nothing , noteContent = msg } ExceptT $ handleOutboxNote hLocal note @@ -239,7 +238,6 @@ postReply hDest recips context replyG replyP after getdid midParent = do encodeRouteFed <- getEncodeRouteFed encodeRouteLocal <- getEncodeRouteLocal let encodeRecipRoute = l2f hDest . encodeRouteLocal - now <- liftIO getCurrentTime (shrAuthor, uParent) <- do Entity _ p <- requireVerifiedAuth lift $ runDB $ do @@ -273,7 +271,7 @@ postReply hDest recips context replyG replyP after getdid midParent = do } , noteReplyTo = Just uParent , noteContext = Just uContext - , notePublished = Just now + , notePublished = Nothing , noteContent = msg } ExceptT $ handleOutboxNote hLocal note