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